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SQUEEZE More Out OF EVERY 
On-LiNE MINUTE. 


Wits New VipTex™ 


‘COMMUNICATIONS SOFTWARE 


Presenting the software 
package that makes your 
computer more productive 
and cost-efficient. 


CompuServe's new Vidtex™ is compatible 
with many personal computers sold today 
(including Apple® Commodore® and 
Tandy/Radio Shack® brands). And it offers 
the following features*—and more-to let 
you communicate more economically 
with most time-sharing services (including 
CompuServe'’s Information Service). 


Auto-Logon. Lets you log on to a host 
simply and quickly by utilizing prompts 
and responses defined by you. Also allows 
quick transmission of predefined responses 
to host application programs after 

logging on. 


Function Keys. Let you consolidate “ 
long commands into single keystrokes. 
Definitions can be saved to and loaded 
from disk file, allowing multiple definitions 
for multiple applications. 


Error-Free Uploading and Down- 
loading. CompuServe “B’ Protocol con- 
tained in Vidtex lets you transfer from 
your computer to CompuServe and from 
CompuServe to your computer anywhere 
in the country. Also provides error-free 
downloading from CompuServe's exten- 
sive software libraries. 


Full Printer Support. Printer buffer 
automatically buffers characters until 
printer can process; automatically stops 
on-line transmission when full; and 
automatically resumes transmission 
when capacity is re-established. Also, lets 
you print contents of textual video screen 
or RAM buffer at any time. 


*Some versions of the Vidtex software do not implement all features listed. 


Vidtex is a trademark of CompuServe, Incorporated. Apple is a trademark of Apple Computer, Inc. Commodore is a trademark of 
Commodore Business Machines. Radio Shack is a trademark of Tandy Corp. 





Capture Buffer. Saves selected 


© parts of a session. Contents can be 


written to a disk file; displayed both on and 
off line; loaded from disk; and transmitted 
to the host. 


On-line Graphics. Integral graphics 
protocol displays stock charts, weather 
maps and more. 


If you are already a CompuServe sub- 
scriber, you can order Vidtex on line by 
using the GO ORDER command. Other- 
wise, check with your nearest computer 
dealer; or to order direct, call or write: 


CompuServe 


P.O. Box 20212, 5000 Arlington Centre Bivd. 
Columbus, Ohio 43220 


1-800-848-8199 


In Ohio, call 614-457-0802 
An H&R Block Company 
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n what is unquestionably one of 

the most dramatic breakthroughs in 
the entire field of Artificial Intelligence 
(AI), a new modular version of the logic 
based programming language Prolog is 
now available exclusively through 
Logicware. 
A refined, programmer-friendly version of 
Prolog — the computer language selected 
as the basis for the Japanese Fifth 
Generation Computer System Project — 
MPROLOG has a wide and powerful 
range of business, industrial and research 
applications. 


With MPROLOG you can: 
protect the corporate investment in 
expertise 
create efficient expert systems, 
shorten programming development 
times 
provide transportability of applications 


Why MPROLOG Was 
Developed 


It has long been a dream of system 
developers to create a programming 
language which could be used to describe 
a problem without having to program 
ws ae steps towards a solution. 

program whose execution corresponds 
to a controlled deduction through facts, 
relationships and rules. 

A program that will enable computers to 
learn, associate, draw conclusions and 
make decisions. 

MPROLOG is that program language, 
the language of artificial intelligence. 





When MPROLOG Can Be Used 


MPROLOG can be used for: 
Expert Systems 
Deductive Databases 
Natural language understanding 
Computer-aided learning 
Fault diagnosis and repair 
Visual perception and guidance 
Intelligent Assistants 
Many areas of Artificial Intelligence 





‘ Day-to-day use of MPROLOG... 
by programmers working with 
specialists. ..over the past eight years 
has produced some 30 applications 
spanning everything from 
architecture to pharmaceutical 
research. ”’ 

The Financial Times, London (U.K.) 

November 13, 1983 











MPROLOG Offers Seven Key 
Features 


i High performance with efficient use 
of resources 


2. Hardware and operating system 
independence 


3. Modular design capability; allows 
subsets of the problem to be specified 
and tested, offering substantial 
increases in productivity 


Program development environment 
— Interactive Program Editor 


> 


— On-line ‘‘help’’ 

— Concurrent editing and error 
correction 

— Program Trace 

— User-defined error handling 

— Efficient garbage collection 

— Over 250 built-in predicates 


5, Interfaces to procedural languages and 
database managers 


6. On-going support and enhancements 


. Comprehensive documentation and 
education 


MPROLOG Works In A Flexible 
Operating Environment 


The MPROLOG system is available on IBM 
mainframe computers under VM/CMS and 
MVS/TSO and Digital Equipment’s 
VAX/VMS and V UNIX. Versions for 
the ‘‘super-micros’’ based on the M68000 
CPU and the IBM PC-XT and AT are 
currently available with additional versions 
scheduled for release later this year. 


To find out more about MPROLOG and 
Logicware call 


or write 
Logicware Inc., 5000 Birch St., West Tower 
Suite 3000, Newport Beach 
California, 92660 


LOGICWARE 


Boston ® Toronto ® Los Angeles 
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@ While our specifications HARD DISK 
certainly speak for themselves W 

eta tor e’ve broken through the 32 
we thought you still might like to MByte DOS barrier! 
hear from some of our users: 
@ “Emerald Systems expands the Now you can create up to 240 
potential of PCs by providing the MByte databases on one file, with 


ability to access large amounts of data multiple volumes per disk drive. 


on line, quickly and reliably.’ You get 14 times more storage 
Terry Baptiste, Computerland, with a 30% increase in 
Lafayette, Ca. = access speed! 


@ “Service and support is great, which 
is an unusual experience. Emerald's 











ns And that’s not all: 


software for backup and restore is Expands up to 280 MB for as little 
invaluable. Can't put a price on it. as $56 per megabyte. 
Productivity and efficiency has 6 expansion slots 
increased at least 50%!” Up to 24 volumes 


Bruce Kittinger, Pinon Systems, 
Ft. Collins, Co. 


@ Runs like a champ with 3-Com 
Ethernet.’ 
Alvaro Ramirez, Micro Age, Miami, Fl. 


Drive sizes: 40,70,140 

Internal or External 

Also for PC,XT, and compatibles 
Supports all PC compatible 
networks 

gm“... highcapacity and flexibility. At - Simple menu-driven installation 
last, atape back up we can count on. 


And the price is right!” TAPE BACKUP 
John Acres, EDT, Las Vegas, Nv. ls” cartridge 
@ “The speed at which you can back Yo" 9 track 
up is very impressive.” 60 Megabytes 


Jim McEwen, Mercy Hospital, 
Portland, Me. 


@ “When Emerald says your unit will 
be there on Thursday, it's there on 
Thursday! Delighted we were able to 
exceed the usual 32 megabyte 


No lost data from tape run out 
Backup and Restore Utility (BRU™) 
software included 
LAN Compatible* 


*FREE APPLICATION GUIDE: 


restriction.” “IBM LAN Installation and 
Steven Mayer, Take One Company, Implementation.” 
New York, N.Y. 
Call (619) 270-1994 
@ “The Emerald 70 MB hard disk is (619) ; : 
or write to 

extremely easy to install and work & 

with. Emerald has a complicated Emerald™ Systems 
piece of equipment made easy to Corporation 
use.” Mainframe Storage for Micros 
Tom Edler, Jewish Hospital, St. Louis, Mo. 4901 Morena Bivd, 


w “Our Emerald fixed disk installed San Diego, 92117 


y' 


TLX 323458 EMERSYS 
EASYLINK 62853804 


Distributed by Manchester Equipment of 
NYC, and selected Entre, MicroAge and 
a ee Computerland stores. 

SYSTEMS CORPORATION Emerald, BRU, Up Your AT, and Mainframe Storage 

ae Ser Senin SRST NAR SS SAO EES a eer 2S ORES for Micros are registered trademarks of Emerald 
Systems Corporation. IBM PC/XT/AT are registered 
trademarks of IBM Corporation. 


quickly and easily. Emerald's reliable 
disk and tape backup further 
enhances LIBRA’s high function 
accounting software.” 

Kenn White, Libra Programming, 

Salt Lake City, Ut. 
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Computers Don’t Live By 
Hardware Alone. 


Without software, computers are little more than 
expensive bookends, but if I had to choose between 
using my computer as a bookend and running the 
latest version of 4éfe (in BASIC), my system would 
now be supporting a collection of Dr. Who catalogs. 
(After all there is more to computing than Hife.) 


I started Micro Cornucopia as a forum for the 
adventurers who are designing and expanding new 
software tools. And over the years, Micro C has 
presented both serious and light-hearted looks at 
the trials everyone faces when probing the boun- 
daries of a language or an algorithm. 


In Micro C we have regular columns on Pascal 
(primarily Turbo ), C, and FORTH. We also take close 
looks at operating systems, system monitors and 
new languages such as Modula II. 
Public Domain Software 

We put together public : 
domain disks from the et 
software submitted by as 
Micro C readers. These 


disks contain format- 

ters, screen dumpers, 

assemblers, dis- gee 
assemblers, text edit- - 


ors, and other useful 
goodies - many of 
which are available 
nowhere else. 
(Numerous CP/M80 and - 
CP/M86 SIG/M programs ss 
originated within the Micro C group. ) 





An International Group = 
If you're interested in hardware and - 
software — if you are ready to dig 
into your system and see what makes 
it tick — if you want to participate in 
an active international group that doesn't believe in 
black boxes — then this is your spot. Try us for a 
year: you Il see why Micro C has grown to over 80 
pages of the most useful hardware and software 
information anywhere. 


If you're looking beyond Hfe, this is your spot. 


David J. Thompson 
Editor & Publisher (lp 

Risk Free Special Offer! 
You get your 7th issue free when you order a year 
subscription (6 issues) for $16. Plus, if you're not 
delighted with Micro C after receiving your first 


issue, just drop us a note and we'll refund your 
entire $16, no questions asked. 








NAME 
ADDRESS 
CITY 
STATE 









Exploding the 
Black Box Theorem. 


: 
Year Subscription 
(plus 7th issue free) 
|| “otter Foreign” | $30.00 _ 
Other Foreign $30.00 


Computers Don’t Live By 
Software Alone. 


Many computer publications seem to have forgotten 
that software has to run on something. That 
something is called hardware (see, we re ahead of 
them already ). Those magazines that do remember, 
subscribe to the black-box hardware theory. “You 
don t open a black box, you just review it until the 
manufacturer goes bankrupt.” 


At Micro Cornucopia, we don't believe in black 
boxes. We ve been building and expanding systems 
inside the pages of Micro C for nearly 4 years (a bit 
cramped, perhaps, but it’s fun). 


Microsystems and Micro C 

Until recently, we've concentrated on single board 
systems — the Big Board, the Xerox, the Kaypro, 
and other CP/M Z80 systems (along with the 80186 
based Slicer). However, with the demise 
ad of Microsystems, we've taken on 
support of homeless S-100 folk. 
2, Dave Hardy has joined Micro C 
>. and his detailed coverage of 
the S-100 bus makes Micro 
Ca primary source of infor- 
mation for this versatile 

system. 


The Latest Processors 
Here is where you ll hear 
about the upcoming micro- 
processors, as well as the 
current single board and S-100 
| board designs. Get the inside 
=f scoop on these systems and share 
the joys and frustrations we all face 
when parenting powerful new machines. 





Coming Up 

Through Micro C, youll be able to 
design and build your own terminal, 

or turn that extra Xerox 820 board that's languish- 
ing in your drawer into a smart 64K printer buffer 

(just add a power supply and a ROM). 


In fact, you'll get the greatest hardware projects for 
S-100 and single board systems as well as in-depth 
coverage of the great languages. About the only 
thing you won t get is a black box review. (But to get 
all this. you'll have to subscribe: you won't find 
Micro C in your local supermarket. ) 


Micro Cornucopia 


P.O. Box 223 Bend, OR 97709 
Order # (503) 382-5060 


Z 


Only $] G00 


Make check or money order payable to: 


Micro Cornucopia 
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Prolog 


A year ago when we were still being published by the old People’s Computer 
Company in Menlo Park, I asked Mike Swaine if Artificial Intelligence was, by 
definition, beyond the scope of microcomputers. What resulted from that Sun- 
day afternoon brainstorming session was the AI programming competition and 
this special issue. 

As the programs and manuscripts rolled in we found ourselves building the 
issue around Prolog and we wished for a public domain tiny-Prolog to publish. 
We haven’t found that yet, but we did get some very good Prolog pieces. Future 
issues of DDJ will include responses from Lisp people. 

Speaking of future issues: June is the special telecommunications issue, as well 
as the copy deadline for the annual algorithms issue which will run in September. 
The annual Forth issue which usually runs in September will appear in October. 
Please submit Forth material by the Fourth of July. 


Reader Ballot Results 


Despite the popularity of our December 1984 focus on Unix, the article voted best 
in the Unix issue was not a Unix piece. Henry Seymour’s “An Introduction to 
Parsing” received twice as many “best article” votes as the second most popular 
article, Alan Walworth’s “Varieties of Unix.” By the way, may we assume that 
because nobody challenged the Unix family tree on page 35, we got it right? 


Mac Erratum 


In the January Fatten Your Mac article, there is a discrepancy between the text 
on page 20 and Figure | on page 23. The figure correctly shows pin 8 soldered, 
but the text refers to pin 7 of the memory select IC. Readers who have called to 
point out the error inform us that the error in the text is obvious to anyone who 
works through and understands the article and the figures. We hope so. 


This Month’s Referees 


Dave Cortesi, Resident Intern 

Neil Jacobstein, Teknowledge 

Scott Mace, Free-lance Computer Writer 
Paul Reinholdtsen, Stanford University 
Pekka Sinervo, Stanford Linear Accelerator 


Randy Sutherland 
Editor 
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Programming in Logic 36. The development of logic programming from Frege to 
by John Malpas ICOT; features and applications of Prolog; implementations 
of Prolog. (Reader Ballot No. 192) 
Tour of Prolog) 44 A description of Prolog’s style from a programmer’s point 
by D. E. Cortesi of view. (Reader Ballot No. 193) 
Tax Advisor: A Prolog Program Analyzing Tax 64 The winner of the AI programming competition: this 
Issues Prolog program assists attorneys in analyzing the tax rules 
by Dean Schlobohm in Section 318 (a) and explains its questions and 
conclusions. (Reader Ballot No. 194) 
COLUMNS 
C Chest 10 This new column takes over where the “C/Unix 
by Allen Holub _ Programmer’s Notebook” left off; this month, root 
module modifications for the Aztec CII compiler. (Reader 
Ballot No. 190) 
Realizable Fantasies 30 Richard Stallman outlines a proposal for GNU, a public 
by Richard Stallman domain Unix-like operating system. (Reader Ballot No. 191) 
16-Bit Software Toolbox 96 A Z-8001 CPU for the S-100 bus; Mac notes; a fix for the 
by Ray Duncan 80286 BOUNDS instruction; DOS 3.0 differences and 
bugs; 8086 assembly language subroutines. (Reader Ballot 
No. 195) 
CP/M Exchange 108 AnRSx tocorrect the handling of random read errors 
by Bob Blum under CP/M Plus; a PIP patch for CP/M Plus. (Reader 
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EDITORIAL 





In one of my favorite novels the very existence of a certain island seems to depend 
on the direction from which you approach it: sort of a human-scale quantum 
uncertainty effect. Early in the novel a philosopher of science and a rather un- 
imaginative psychologist discuss the island over lunch. 

“The island doesn’t bother you, does it, Dr. Blank,” the philosopher of science 
says around a bite of toast, “because you look at it one side at a time.” 

One side at a time. Well, yes. That’s a fundamental human limitation: we can 
only see one side of anything at a time. It comes of having our eyes set so close 
together. But that limitation shouldn’t keep us from paddling around the island 
to discover how things look from the other side. 

I recently spoke before several hundred engineers at a major electronics research 
center. Roughly half of them had within the past year been deeply involved in a 
project that, to their chagrin, the company ultimately decided would not become a 
product. The company had probably acted in its own best economic interest in 
putting the kibosh on the project, although some of the engineers seemed to think 
the decision might have been a mistake. If the decision was not in the company’s 
own self-interest, then of course it was a mistake. Those are the alternatives. 

Well, maybe in that case. But sometimes companies—and people—deliberate- 
ly act contrary to their own perceived economic self-interest. It’s generally as- 
sumed that, other things being equal, some money 1s better than no money, and 
we expect others to choose some over none whenever they perceive that they have 
such a choice. Corporate strategies are built on such an assumption about com- 
petitors’ motives. But the assumption is not always warranted in fact. 

Say, for example, that a bright programmer, convinced that software should 
be free, sets out to develop, with a little help from his friends, a Unix-compatible 
operating system and subsequently distributes it free to anyone who wants it. 
That’s not a hypothetical example; it’s exactly what Richard Stallman is propos- 
ing in his “GNU Manifesto,” this month’s Realizable Fantasy. 

Say you’re one of the hordes of people who have an economic interest in the 
success of Unix. If Stallman’s fantasy is realized, you will soon face a competitor 
who is giving away his product, a strategy that some might think gives him a 
competitive edge. What do you do? 

The fantasized confrontation between Unix and GNU could occur in any part 
of the software market. The number of programmers who could write a word 
processor or spreadsheet program better than many currently on the market 
grows daily. Large, complex programs are not exempt from such competition: as 
Stallman points out, modularizing the task solves the mere size problem, and a 
little reverse engineering unravels much complexity. 

The fact is, both commercial software (pace Richard Stallman) and free soft- 
ware—written and distributed for fun or for pride of accomplishment or for philo- 
sophical reasons—are here to stay. You can’t keep people from writing programs. 
But free software isn’t going to destroy the market for commercial software; pro- 
grams are too complex to be evaluated strictly on the basis of price. 

On the other hand, smart commercial software developers will keep themselves 
aware of what free software exists, and not borrow trouble by trying to compete 
with free products. If they are really smart, they will also paddle around to the 
other side and imagine what free software might be written. 

What is Dr. Dobb’s view on the issue? We’re in favor of good software, free 
and commercial, and have been promoting both kinds since 1976. I think we see 
both sides. 

But not at the same time. 





i Laat Sica dee 


Michael Swaine 
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DIGITAL RESEARCH COMPUTERS 
(214) 225-2309 


64K $100 S$ 


NEW! 


LOW POWER! 
150 NS ADD $10 





















= =a |BM PC ADD ON BOARDS 
=D of aay 


STB Systems, Incorporated N O W / N S TO CK ! 


RIO PLUS II™ — Multi-function board with 2 RS232 serial ports (1 standard, 
1 optional), parallel 1/O port, game port and clock/calendar. Comes with 
64K memory (expandable to 384K) and PC Accelerator. 

STB-RIO + 11 64 List $395 $286.00 






















































GRAPHIX PLUS II” BLANK PC BOARD ee i , 
Multi-function video board featuring monochrome text, full screen WITH DOCUMENTATION 
monochrome graphics, RBG color, composite b&w video, a parallel port, a $49.95 FEATURES: PRICE CUT! 
light pen interface, and an upgradable clock option. SUPPORT ICs + CAPS * Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
STB-GRAX List $495 $363.00 $17.50 * Fully supports IEEE 696 24 BIT Extended 
: Addressing. 
SUPER RIO™ FULL SOCKET SET * 64K draws only approximately 500 MA. 





* 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 

; SPEED APPLICATIONS.) 
FULLY SUPPORTS THE , supports PHANTOM (BOTH LOWER 32K 

NEW IEEE 696 S100 AND ENTIRE BOARD). 

STANDARD * 2716 EPROMs may re installed in any of top 48K. 
* Any of the top 8K (E000 H AND ABOVE) may 
(AS PROPOSED) be disabled to provide windows to eliminate 


FOR 56K KIT $1 45 any possible conflicts with your system monitor, 
disk controller, etc. 


ASSEMBLED AND * Perfect for small systems since BOTH RAM and 
TESTED ADD $50 EPROM may co-exist on the same board. 
* BOARD may be partially populated as 56K. 


RAM-1I/O multi-function board with 64K memory (upgrad-able to 768K), 
two serial ports, parallel printer port, game port and clock/calendar. 
STB-SRIO-64 List $419 $294.00 


All above boards come with “PC Accelerator” which is a RAM Disk 
Emulator and Printer Spooler that vastly increases your processing speed. 
All boards fully assembled and tested, and are warranted by the 
manufacturer for 1 year! 


SPECIAL OFFER: Buy any two or more of the above boards and take an 
additional $10 per board discount 


256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL THIS BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DISK DRIVE. 
FEATURES: 


PRICE CUT! Tae board, using + 5V 64K 


* Uses new Intel 8203-1 LSI Memory 
Controller. 

* Requires only 4 Dip Switch Selectable 
1/O Ports. 

* Runs on 8080 or Z80 $100 machines. 

* Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 

* Provisions for Battery back-up. 

* Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

* The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 





































































NEW! 


LOW POWER! = 
RAM OR EPROM! eee 


FEATURES: 
BLANK PC BOARD * Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
WITH Fully supports Extended Addressing. 


64K draws only approximately 500 MA. 











DOCUMENTATION 
$52 200 NS RAMs are standard. (TOSHIBA makes 
TMM 2016s as fast as 100 NS. FOR YOUR HIGH 


TI + CAP SPEED APPLICATIONS.) 
SUPPORT ICs + CAPS * Board is configured as 3-16K blocks and 8-2K 







* * © 


































BLANK PCB f vr enot: Ape A beget ka $18.00 blocks (within any 64K block) for maximum 
Re bb TN netic boards. FULL cae SET . o716 EPROMs may be installed anywhere on 
. Board. 
PROGRAM ON DISKETTE) $ 00 * Top 16K may be disabled in 2K blocks to avoid 
$6995 229 56K Kit $169 any 1/0 Goniuets: 
: ; * One Board supports both RAM and EPROM. 
(8203-1 INTEL $29.95) #LS-100 (FULL 256K KIT) 64K Kit $199 * RAM supports 2MHZ operation at no extra 
















ASSEMBLED AND charge! 
* Board b tiall lated in 1 
TESTED ADD $50 ime eee 


32K $100 EPROM/STATIC RAM 


FOUR FUNCTION BOARD! | 


THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
weave MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 
ERVICES. i la: 


FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 
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EPROM KIT 
$69.95 
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capabilities. | Hae pee t eee : eee IC's 

* RS232 at 16 BAUD Rates from 75 A&T EPROM qo. Joee i ~~ PLUS CAPS 
to 19,200. ADD $35.00 ae ey $16 

* 24 x 80 standard format (60 Hz). 

* Optional formats from 24 x 80 We took our very popular 32K S100 EPROM Card and added FULL 
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LETTERS 


Fantasies 


Dear DDJ: 

I read with interest your piece, “A Re- 
alizable Fantasy,” in the November 
[1984] issue. Clearly, a product such 
as you describe would be potentially 
very useful as a productivity tool. A 
close approximation to such a tool may 
already exist! 

Recently, on behalf of a client, we 
did a brief evaluation of a package 
called the Excelerator from Index 
Technology Corporation. The prod- 
uct—software + hardware—does ex- 
ist and seems to function pretty much 
as described in the brochure. It’s a very 
powerful utility and at least it’s a start 
in the direction you outlined. 

Not surprisingly, however, our cli- 
ent balked at the $9,500 price tag— 
nearly twice what his XT cost! I agree 
that in a micro environment this is an 
impossible price, but there is no reason 
to suppose that such a capability can’t 
be built and offered at substantially 
less. I hope someone does it soon. 

Sincerely, 

R. A. Langevin 

7621 Fontaine St. 
Potomac, MD 20854 


Dear DDJ: . 
Some humble fantasies: extra CP/M 
BDOS calls for full-screen I/O, multi- 
character key input (function keys) 
and a utility that translates a submit 
file into a .COM (or .CMD) file. 

Nelson Richardson 

740 West End Avenue #21 

New York, NY 10025 


BU Bits 


Dear DDJ: 

Ian Ashdown’s BU program published 
in the January [1985, #99] DD/J is a 
fine contribution to the growing list of 
public domain programs that can per- 
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form incremental backup given correct 
operation of the CP/M “archive bit” 
(t3’). As the author of one of the best 
known commercial programs for per- 
forming the same function, I feel I 
should comment on a serious factual 
error in Ian’s article. He states: “.. . if 
you use a disk utility to set t3-prime to 
true in the file’s directory entry, you 
will find that the BDOS resets it to false 
(zero) whenever the directory entry is 
changed. Since this means that the file 
has been opened, written to, and closed 
(or else renamed) by the BDOS, 3t- 
prime is apparently an undocumented 
attribute bit that indicates when a file 
has been updated.” I’m not sure where 
this idea got started, but for CP/M 2.2 
it just ain’t so. (lan Ashdown is not the 
only notable to make this mistake: it 
also occurs on page 222 of David E. 
Cortesi’s generally outstanding book 
Inside CP/M.) If you don’t believe me, 
spend a few minutes with BU, set t3’ 
on a file, change the file with a stan- 
dard CP/M utility, and just see if the 
bit is reset. 

Alas, while t3’ is a functional ar- 
chive bit under CP/M 3.0 and MPM, 
under CP/M 2.2 it acts just like any 
other attribute bit. There is, in fact, no 
code whatsoever in BDOS to reset this 
bit automatically when a file is 
changed, as those who have tried to im- 
plement Kelly Smith’s original AR- 
CHIVE.ASM program know full well. 
The BU program is almost useless un- 
der 2.2 unless BDOS is patched to in- 
stall suppport for the archive bit. Our 
own product, Qbax, will function with- 
out patching for programs such as 
word processors and compilers that 
change files by rewriting them from 
scratch, but even our product requires 
a BDOS patch to catch random access 
updates in place. Such patches are ex- 
tremely tricky, and while public do- 
main software is wonderful it is also 
nice to have a company to rely on for 





support when the patch doesn’t work. 
Some of the versions of the BDOS 
patch for ARCHIVE.ASM that have 
appeared in various places have had 
some serious bugs. 

Ian should have gotten a tip-off 
from his own comments: “Speaking of 
file copy utilities, a few are available 
that, under certain circumstances, will 
write a file without resetting its Ar- 
chive attribute. One of these, oddly 
enough, is DRI’s own PIP.COM.” Not 
odd, just normal for CP/M 2.2! Vanilla 
PIP is not a rogue elephant that some- 
how bypasses BDOS (like so many pro- 
grams that run under that other oper- 
ating system, which shall remain 
nameless!) In fact PIP is written in a 
high-level language and uses orthodox 
BDOS calls. PIP fails to reset the ar- 
chive bit because the facility to do so 
automatically in BDOS doesn’t exist. 
The few programs available that do re- 
set the archive bit do it as the result of 
explicit code placed there by the effort 
of their authors. 

Best, 

Jim Rosenberg 
President 
Amanuensis, Inc. 
R.D. #1, Box 236 
Grindstore, PA 15442 
(412) 785-2806 


Acknowledgments 


Dear DDJ: 
I want to set the record straight on 
three items that have arisen recently 
concerning authorship and propriety 
of certain copyrighted material. 
Firstly, in the January 1985 issue of 
DDJ, page 67, Walt Piotrowski incor- 
rectly gives me credit for the original 
MBOOT program published in DDJ Oc- 
tober 1982 page 47. As the source list- 
ing of MBOOT in that article clearly in- 
dicates, Keith Petersen, W8SDZ, is the 
author of MBOOT and MBOOT is only 
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an adaptation of the original MODEM- 
.ASM by Ward Christensen. This is an 
easy mistake for Walt to make and | 
doubt if anyone will be hearing from 
either Keith’s or Ward’s legal 
representatives. 

Secondly, my dBASE II©° command 
program DBSECURE.CMD is a RUN- 
TIME @ simulator, but requires the tar- 
get environment to own already a li- 
censed copy of dBASE II®. While 
DBSECURE will scramble and 
SCRUNCH command files like RUN- 
TIME ®, it relies on DBASE.COM to ex- 
ecute the command file. This require- 
ment is clearly indicated in the 
documentation. 

Finally, NEWBASE.COM and NEW- 
BASE.ASM will no longer support the 
SKIP-SIGNON-OPTION. The editors 
at DDJ brought it to my attention that 
such a feature could be used to by-pass 
the copyright notice of Ashton-Tate 
and that was not my intention. 

As most authors for this magazine, I 
am available to try to answer questions 
and help solve problems with my pub- 
lished software. However, on behalf of 
all of us who put our name, address and 
phone number on the line, please call at 
reasonable hours (check time differ- 
ences) and always include a self-ad- 
dressed, stamped envelope when 
writing. 

Gene Head 

2860 NW Skyline Drive 
Corvallis, Oregon 97330 
(505)758-0279 
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X/L Yet? 


The Ultimate Programmer’s Editor 


some folks have already discovered it. And they threw their other 
editors away! Why? Because XTC is incredibly powerful. It’s also 
easy to learn, and easy to use. XTC has MORE editing 

facilities for LESS MONEY — 99 bucks 
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These windows are 
really great! You can 
see several files at 
once — even different 
parts of the same file. 
That means you've got 
declarations in front of 
you while you're look- 
ing at the code that 
uses them! 

Is XTC protected? Heck 
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the source on a disk for 
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NY 
INTRODUCTORY OFFER 


Want to compare XTC with your editor? 
Just ask for our demo disk (only $5.00) 
and try it out. When you buy XTC, we'll 
knock five bucks off the price. 





XTC outperforms any other program- 
mable editor on all IBM /PC, /XT, and /AT 
computers (and true compatibles). XTC 
even works with your Sidekick and Turbo your recreation — 
Pascal from Borland! 7,000 lines of Pascal! 


2 BS eee eee eee ee ee eee eee ee eee eee eee ess ee 
To get your copy of XTC now, order 
it over the phone — we can ship it 
the same day! Or, you can send in 
an order, just like this one: 





AIG ......... 99 bucks 

‘ 5 Box 266 - Cheney, WA 99004 « USA = (509) 235-8088 
Shipping and Insurance ..... 3.50 
Vjiash res acd tax: 2. 2.2 7.99 Sidekick and Turbo Pascal are trademarks of 
Want it COD? Add this....... 1 65 Borland, international. Wordstar is a trademark of 


MicroPro. Wendin and XTC are trademarks of Wen- 
din, inc. 


TOTALIT UP AND SENDIT QUICK! 
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Pipes, Wild-Card Expansion, and Quoted Arguments 


by Allen Holub 


Hi. The C column is changing hands 
this month. So, before leaping into the 
thick of things, I want to talk a little 
about how I’d like the column to evolve. 
If you'd rather see this column do other 
things, write to me. I propose using this 
space for three major purposes: 

(1) Printing useful subroutines written 
in C. This month’s column is an example 
of the sort of subroutine I have in mind. 
In future columns, I’d like to talk about 
things like binary (AVL) tree manage- 
ment functions, operating system primi- 
tives (such as queue management rou- 
tines), useful text manipulation 
primitives not found in the standard li- 
brary (like the expression recognizer in 
grep discussed in DDJ No. 96), graphics 
routines, and so on. I’ve written compil- 
ers, operating systems, word processors, 
and the like, and I find myself using sev- 
eral pieces of these larger programs over 
and over again. It’s those sorts of pieces 
that I’d like to print here. In addition to 
subroutines, complete small programs 
will appear here from time to time, such 
as an MSDOS version of the Unix utility 
“make,” a simple sort utility, and the 
like. 

Anything you’re interested in is a 
potential topic, provided that you write 
and tell me what you want to know 
about. By the same token, if you have 
useful subroutines you'd like to share, 
please send them to me (on an IBM PC- 
compatible disk, if possible, or on pa- 
per, if not). While we’re on the topic of 
participation, I’ve never written a bug- 
free program in my life. Consequently, 
although a program might run fine on 
my own system when compiled with 
my own compiler, I’m sure that unno- 
ticed bugs creep in from time to time. 
If you find a bug, write and tell me; I'll 
print the correction as soon as possible. 
If you have a better way to do some- 
thing and have a working program that 
does it (I’m not especially interested in 
theory), send it in. 
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(2) Discussing technical and more the- 
oretical issues. Discussing some of the 
underlying theory of the C language 
and of compilers in general can help 
you understand a lot of the weirdness 
of the C language. By knowing about 
things such as stack frames and assem- 
bly language subroutine-calling con- 
ventions, you find that a lot of the 
hard-to-understand parts of the lan- 
guage become much clearer. This kind 
of knowledge also makes it easier to 
debug programs, so an occasional dip 
into theory could be useful. 

(3) Providing a general forum on C- 
related topics. Want to start a public 
discussion on your own pet peeve? 
Send it in. 


Adding Unix Command Line 
Functions 

Unix provides an operating environ- 
ment particularly helpful to program- 
mers. Pipes, redirection, and wild-card 
expansion are all features that Unix it- 
self provides, available to any program 
running under Unix regardless of the 
language in which that program was 
written. For example, when you say 
‘““srep something *.c”’ on the command 
line, Unix expands the *.c to a list of all 
files in the current directory that end 
in .c. By the time your main(_ ) function 
is executed, Unix will have filled argv 
with the names of these files rather 
than with the *.c. Similarly, when you 
say “foo > bar” or “foo | bar,” Unix 
automatically takes care of sending the 
output of foo to the file bar (in the first 
case) or to the program bar (in the 
second). 

Most operating systems aren’t as 
nice. MSDOS does redirection, but, be- 
cause it doesn’t differentiate between 
stdout and stderr, most compilers can’t 
let MSDOS actually do the redirection. 
MSDOS pipes are useable, but it 
doesn’t do wild-card expansion. CP/M 
doesn’t even do pipes. To make up for 


these shortcomings, most manufactur- 
ers of C compilers implement some or 
all of these Unix functions inside the C 
program itself (rather than in the oper- 
ating system where they belong). 
That’s one reason why a two-line pro- 
gram can compile into 8K of code. 
Unfortunately, most compiler man- 
ufacturers don’t give you full Unix 
compatibility. I/O redirection almost 
always is included, and wild-card ex- 
pansion almost always is omitted. 
Quoted arguments (which let you get 
imbedded spaces into a single argv en- 
try) usually are not implemented ei- 
ther. This month, we will see how to 
add pipes, wild-card expansion, and 
quoted arguments to the Aztec CII 
compiler. It’s not hard to modify these 
routines to work with many other com- 
pilers. In a future column, I'll give a 
version that works with Lattice C. 


Root Modules 
Before your main( ) subroutine is acti- 
vated, a certain amount of housekeep- 
ing must be done. To accomplish this, 
most C compilers provide a subroutine 
that you usually don’t see. This sub- 
routine, called a root module, first does 
various initializations then calls your 
main( ) function. The root module for 
CP/M compilers often is inserted into 
your program automatically by the 
linker. MSDOS compilers typically re- 
quire you to provide the name of the 
root module as the first filename argu- 
ment submitted to link. | 
Among other things, the root mod- 
ule initializes the I/O system and 
parses the command line into the argv 
array. Redirection, wild-card expan- 
sion, and so forth are also done in the 
root module. So, to add these func- 
tions, all you have to do is modify the 
root. On the down side, anything you 
add to the root module will increase 
the size of every program you compile. 
It’s often a good idea to have several 
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roots around—with varying complex- 
ity and size—and to use the one most 
suitable to a particular application. 

Different manufacturers call root 
modules different things (Croot, root, 
_main, $main, and so on). Sometimes 
there are two such functions. For ex- 
ample, the Computer Innovations 
compiler uses an assembly language 
routine $main, which calls a C routine 
_main, which calls main( ). Similarly, 
in Lattice C the assembly language 
routine c calls _main( ) (written in C), 
which in turn calls your main( ). The 
root module for Aztec C called croot( ) 
is written in C. 

Fortunately, the source for the root 
module usually is provided with the 
compiler, so you can modify it as neces- 
sary. The version of croot given here 
differs from the distribution version as 
follows: 

(1) Any word on the command line 
containing the characters * or ? is as- 
sumed to be a filename containing 
wild-card characters. Croot will search 
the current user area on the indicated 
drive for any files matching the indi- 
cated name. The * and ? are expanded 
exactly the way they are in CP/M; that 
is, a * will match any character repeat- 
ed zero or more times, and a ? will 
match any single character falling in 
the position in a name that corresponds 
to the position of the question mark. 
No character except a period may fol- 
low a *. The expanded list of files is 
passed through to main( ). If you have 
three files on your disk with the exten- 
sion .c, then the command line “‘pro- 
gram *.c” results in main( ) being 
passed an argc of 4; argv[1], argv[2], 
and argv[3] contain the names of the 
three files. The files are listed in no 
particular order. 

(2) Any argument surrounded by dou- 
ble quotes (‘‘arg”’) is treated as a single 
argument, even if there are embedded 
blanks in the string. For example, the 
command line: 

program “‘this is one argument” 

“this is another” 
enters main( ) with argc set to three. 
Argv[1] points at the string: 

this is one argument 
Argv[2] points at the string: 

this is another 


The quotes are stripped off for you. The 
wild-card characters * and ? are ig- 
nored if they are found in a quoted ar- 
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Still Fixing Bugs 


Ready to take the sting out of 
debugging? You can with 
Pfix86™ and Pfix86 Plus™, the 
most advanced dynamic and 
symbolic debuggers on the 
market today for PC DOS and 
MS-DOS™ programmers. 

What other debugger offers 
you an adjustable multiple- 
window display so you can view 
program code and data, break- 
point settings, current machine 
register and stack contents all 
at the same time? And, an in- 
line assembler so you can make 
program corrections directly in 
assembly language. Plus, pow- 
erful breakpoint features that 
allow you to run a program at 
full speed until a loop has been 
performed 100 times, or have 
the program automatically jump 
to atemporary patch area. 

Or maybe you're tired of 
searching through endless piles 
of listings for errors? With Pfix86 
Plus you won't have to. You can 


Norwood, MA 02062 


The Hard Way? 


locate instruction and data by 
the symbolic name and using 
the symbolic address. Handle 
larger, overlayed programs 
with ease. And, Pfix86 Plus is 
designed to work with our 
Plink86™ linkage editor. 

But that’s not all. With a single 
keystroke you can trace an in- 
struction and the action will be 
immediately reflected in code, 
data, stack, and register win- 
dows. Pressing a different key 
will elicit a special trace mode 
that executes call and loop 
instructions at full soeed, as 
though only a single instruction 
were being executed. 

And you get an easily acces- 
sible menu that makes the 
power of our debuggers instant- 
ly available to the new user, but 
won't inhibit the practiced user. 

So, why struggle with bugs? 
Pfix86 by Phoenix. Pfix86 $195. 
Pfix86 Plus $395. 

Call (800) 344-7200, or write. 


Lhwenife 


Phoenix Computer Products Corporation 
1416 Providence Highway, Suite 220 


In Massachusetts (617) 762-5030 


Pfix86, Pfix86 Plus and Plink86 are trademarks of Phoenix Software Associates Ltd. 
MS-DOS is a trademark of Microsoft Corporation 
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gument (i.e., they are passed through to 
main( ) as a * and a ?). If the quotes 
aren't present, croot will try to expand 
these characters into a filename. 

(3) 1/O redirection has not been modi- 
fied from the Manx release version. 
The character > causes standard out- 
put to be “redirected” to the file whose 
name is immediately to the right of the 
character instead of to the console. 
The character < causes standard in- 
put to be taken from the file whose 
name is immediately to the left of the 
character instead of from the console. 
You have to be careful about using 






C 
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pipes and redirection at the same time, 
though (see below). 

(4) The pipe character (|) causes stan- 
dard output from the program to the 
left of the character to be used as stan- 
dard input to the program to the right 
of the character. Two temporary files 
called $PIPE.IN and $PIPE.OUT are 
created (on the A: disk in the current 
user area); they're automatically de- 
leted when they are no longer needed. 
The program at the end of a pipe has to 
support redirection, but it need not 
support pipes. You may use more than 
one pipe on a single command line. For 







@ We have over 200 
complete, tested, and, documented functions. 


All source code and demo programs are included. 


® The library was specifically designed for software 
development on the IBM PC, XT, AT and compatibles. There are no royalties. 


®@ Over 95% of the source code is written in C. Experienced programmers 
can easily “customize” functions. Novices can learn from the thorough comments. 








We already have the functions you are about to nettle 


Concentrate on software development— not writing functions. 


THE C UTILITY LIBRARY includes: 


e Best Screen Handling Available ¢ Windows @ Full Set of Color Graphics 
Functions e Better String Handling Than Basic ¢ DOS Directory and File Man- 


agement @ Execute Programs, DOS Commands and Batch Files ¢ Complete 
Keyboard Control e Extensive Time/Date Processing @ Polled ASYNC 
Communications @ General DOS/BIOS gate ¢ And More @ 





@ The Library is compatible with: Lattice, Microsoft, Computer Innovations, Mark Williams 


and DeSmet. 


C Compilers: Lattice C—$349, Computer Innovations C86 — $329; Mark Williams C—$449. 


C UTILITY LIBRARY $149 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ground, $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card, Visa, 


check or P.O. 


ESSENTIAL SOFTWARE, INC 


RLS aes P.O. Box 1003 Maplewood, New Jersey 07040 914/762-6605 
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example, the command line 

grep -n foo | sort -d | Ipr 
executes grep first, invoking it with the 
arguments -n and foo. The output from 
grep is used as the input to the program 
sort, which is passed the argument -d as 
well. Finally, the output from sort is 
passed to the program Ipr. 

Croot does this chaining in two 
steps. It creates a temporary file in the 
first program in the chain, pretending 
that it saw a redirection directive ( > 
$pipe.out) on the command line. Then 
when executing the function exit( ), 
croot loads in the next program, using 
execl( ), and executes it. Croot redi- 
rects the temporary file to the second 
program by adding a < $pipe.in to the 
command line sent to the second pro- 
gram (the name is changed before the 
command line is modified). 

Given the above example, you could 
accomplish the same thing by typing: 


grep -n foo > $pipe.out 

ren $pipe.in = $pipe.out 

sort -d < $pipe.in > $pipe.out 
era $pipe.in 

ren $pipe.in = $pipe.out 

lpr < $pipe.in 

era $pipe.in 


If the temporary files can’t be created, 
croot does not erase the $pipe.in file. 
However, it will attempt to abort any 
ongoing submit file by deleting the file 
$$$.sub. 

Pipes may be used along with redi- 
rection. For example, the command line 

program! <foo | program2 > bar 
is perfectly legal. In this case, pro- 
gram1 takes its input from the file foo 
and sends its output to program2. Pro- 
gram2, in turn, puts its own output into 
the file bar. You have to be careful, 
though: you can’t direct output to two 
places at once or get input from two 
places at once. For example, ‘“‘pro- 
graml >foo | program2”’ is illegal, as 
is “program! | program 2 <foo.” 


Support Routines 

Croot requires several support routines; 
most of these are documented in Listing 
One (page 14). Some of these are useful 
enough to merit additional explanation. 


do_wild 


int do_wild(fname, argv, maxarg ) 
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char *fname, **argv ; 
int makxarg; 


A general purpose directory-searching 
utility, do_wild( ) creates an argv-like 
array of pointers to strings, one string 
for each file in the current directory 
that matches the filespec “fname.” It 
returns the number of valid elements 
in the argv array after the expansion; 
the return value can be used to update 
argc. 

If fname contains no wild-card char- 
acters, only one name is expanded. If 
fname does not exist, nothing is done, 
and the routine returns a zero. If 
fname contains a * or a ?, argv will 
contain a pointer to a string for each 
possible matching name. If the string 
begins with x: (where x may be re- 
placed by any valid CP/M drive id), the 
indicated drive is searched instead of 
the current drive. On entry, the param- 
eter argv should point at the beginning 
of an uninitialized array of character 
pointers. Maxarg is the maximum per- 
mitted size of argv. 


exec! 


execl( name, argl,...argN, 
(char *)O ) 
char *name, *arg! ... *argN; 


Execl( ) chains to the program “name” 
by overwriting the current program 
and transferring control to the new 
program; the extension .COM is auto- 
matically appended onto “name.” 

Execl( ) has a variable number of 
arguments. Argl through argN are 
concatenated and passed through to 
the new program as its command line. 
The rightmost argument in the list 
must be zero. Because of the way the 
next program is loaded, the length of 
all the concatenated arg strings may be 
at most 79 characters. Note that 
execl( ) inserts a space between each 
string. Any characters beyond the 79 
are truncated. 

Execl( ) should not return. If it does 
return, then execl( ) can’t open the 
specified file. Execl( ) does not print 
an error message in this latter case. 
Note that the contents of the default 
FCB and the default DMA buffer (at 
addresses OxSc and 0x80) are unde- 
fined if execl( ) returns. Execl( ) 
makes no attempt to close any files, so 
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be sure to close any opened files before 
the execl( ) call. 

Execl( ) uses two assembly language 
files to load the next program in the 
pipe, “loader” and “loadldr’’( Listing 
Two, page 27). Loader reads the next 
program into memory then transfers 
control. Loadldr puts the loader itself 
into memory. 


initfcb 


initfcb( filename, fcb) 
char *filename, *fcb; 


Initfcb( ) initializes the fcb (CP/M file 
control block) pointed at by “fcb” to 
the filename “‘filename.” If the file- 


name has x: as the first two characters 
of the string, the drive field is set to 
drive x as well; all other fields are filled 
with zeroes. 

A * in the filename is expanded out to 
fill the rest of the field with ?s. So, the 
wild-card characters * and ? are treated 
as they are by CP/M. For example: 


XXx.yyy. becomes . xxx yyy 
xx" y* becomes xx??????y?? 


66 (99 


or *.* becomes Ud di fi a) a Dat a De hi a 


6 NO. PONCE MOF 16: Wwe ee ge 


The filename argument may be termi- 


nated by either a \0 or a space. 
DD) 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 190. 











MEMO: f Programmers 


QUIT 
WORKING 
SO HARD. 


These people have quit working so hard: IBM, Honeywell, Control Data, 
GE, Lotus, Hospitals, Universities © Government Aerospace. 


THE GREENLEAF FUNCTIONS” 


THE library of C FUNCTIONS that probably has just what you need . . . TODAY! 





.. already has what you're working to re-invent 
_ already has over 200 functions for the IBM PC, XT, AT, and compatibles 
_ already complete . . . already tested . . . on the shelf 
_ already has demo programs and source code 
already compatible with all popular compilers 
_ already supports all memory models, DOS 1.1, 2.0, 2.1 
already optimized (parts in assembler) for speed and density 
_ already in use by thousands of customers worldwide 
_ already available from stock (your dealer probably has it) 


~~ Tr’s called the GREENLEAF FUNCTIONS. 


Sorry you didn’t know this sooner? Just order a copy and then take a break — 


we did the hard work. Already. 
THE GREENLEAF FUNCTIONS GENERAL LIBRARY: Over 200 functions in C 


and assembler. Strength in DOS, video, string, printer, async, and system interface. All DOS 1 
and 2 functions are in assembler for speed. All video capabilities of PC supported. 
All printer functions. 65 string functions. Extensive time and date. Directory searches. 
Polled mode async. (If you want interrupt driven, ask us about the Greenleaf Comm 
Library.) Function key support. Diagnostics. Rainbow Color Text series. Much, much more. 
The Greenleaf Functions. Simply the finest C library (and the most extensive). 
All ready for you. From Greenleaf Software. 

_.. Specify compiler when ordering. Add $7.00 each for UPS second-day air. MasterCard, 
VISA, check, or P.O. 


@ Compilers: @ General Libraries. ... $175 


Cl COb J a2 3st seas $349 (Lattice, Microsoft, Mark 

=o— Lattiee ok nne oot $395 Williams, CI C86) 
Mark Williams ...$475 @ DeSmet C.......... $150 
| @ Comm Library...... $160 


GREENLEAF 
SOFTWARE < 





GREENLEAF SOFTWARE, INC. 


2101 HICKORY DRIVE «# CARROLLTON, TX 75006 « (214) 446-8641 
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C Ches f (Text begins on page 10) 


Listing One 
/* Croot.¢ 
x 
* Wildcard expansion & pipes for Aztec CII 
* 
* This version of Croot.c has been extensively modified by A. I. Holub. 
* Manx Software Systems is in no way responsible for this program. 
* 
* The portions of this program printed in boldface and are the original 
* croot. They are Copyright (c) 1981, 1982 by Manx Software Systems and 
* (c) 1982 by Thomas Fenwick. 
* 
* The portions of this program not printed in boldface are 
. Copyright (c) 1985, Allen I. Holub. These portions may be reproduced 
e for personal, non-profit, use only. All other use is prohibited. 
* 
* You should replace the croot in libc.lib with this module. 
* / 


#finclude "a:errno.h" 
#include "a:fcntl.h" 
finclude "a:io.h" 


#define 
#define 
#define 
#define 


#define 
#define 


/* 

* 

oS 
#define 


#define 
#define 


MAXARGS 128 /* Maximum argc ait 
LOADERSIZE 49 /* Size of the loader in bytes ® fe 
DEF_FCB Ox5c /* CP/M Default FCB location */ 
FCBSIZE 36 /* Size of an FCB in bytes %, / 
CBUF ((char *)0x80) /* CP/M command line buffer */ 
CBUFEND (char *)(0x80+128-LOADERSIZE) 


Various BDOS function calls: 


Srenfiirst(tch): { bdost-- Oxil\ (feb) 8 Ox££*) 
srchnext(fcb) C'bdee (“Onde fie) @ OxEE > 
bdosopen(fcb) C bdost. Ox08,. C£eu) J “e OXEE 


int badfd(), noper(); 


/* 
*/ 


Channel table: relates fd's to devices 


struct channel chantab[] = 


{ 2, 0, l, O, noper, 2 ), 
RO) 25 5: hopes. 2: 3% 
EO 2s. 1,10, nopers 2.4; 
. On 0, 0. O baetd oy 
(20 BS a eo badfd, O }, 
tO, 0, 0, 0, badtd Oct. 
1 Oe Oy. 0, OF bedit Oe y: 
(0, Ops 05 05 -padéd, 0-3; 
(0, >0;,:20,2 0 badfd, O }, 
PO OC Ge Os badfd, O }, 
1,040). 04 Oo tadtda: 6): 
Static char *Argv[MAXARGS]; 
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(Continued on page 16) 
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WIZARO C 


Fast compiles, fast code and great diagnostics 
make Wizard C unbeatable on MSDOS. Discover 
the powers of Wizard C: 


ALL UNIX SYSTEM II] LANGUAGE FEATURES. 

UP TO A MEGABYTE OF CODE OR DATA. 

SUPPORT FOR 8087 AND 80186. 

FULL LIBRARY SOURCE CODE, OVER 200 FUNCTIONS. 
CROSS-FILE CHECKS OF PARAMETER PASSING. 

USES MSDOS LINK OR PLINK-86. 

CAN CALL OR BE CALLED BY PASCAL ROUTINES. 
IN-LINE ASSEMBLY LANGUAGE. 

240 PAGE MANUAL WITH INDEX. 

NO LICENSE FEE FOR COMPILED PROGRAMS. 


The new standard for C Compilers on MSDOS! 
Only $450 
For more information call (617) 641-2379 


WSS Wizard Systems Software, Inc. 
11 Willow Ct., Arlington, MA 02174 


Visa/Mastercard accepted 





Circle no. 116 on reader service card. 


Fortran Scientific Subroutine Package 
Contains Approx. 100 Fortran Subroutines Covering: 


1. Matrix Storage and Operations 7. Time Series 

2. Correlation and Regression 8. Nonparametric Statistics 
3. Design Analysis 9. Distribution Functions 
4. Discriminant Analysis 10. Linear Analysis 
5 
6 


. Factor Analysis 11. Polynomial Solutions 
. Eigen Analysis 12. Data Screening 


Sources Included 


$295.00 


FORLIB-PLUS™ 


Contains three assembly coded LIBRARIES plus support. 
FORTRAN coded subroutines and DEMO programs. 


The three LIBRARIES contain support for GRAPHICS. 
COMMUNICATION. and FILE HANDLING/DISK SUPPORT. An 
additional feature within the graphics library is the capability of one 
fortran program calling another and passing data to it. Within the 
communication library, there are routines which will permit interrupt 
driven. buffered data to be received. With this capability. 9600 
BAUD communication is possible. The file handling library contains 
all the required software to be DOS 3.0 PATHNAME compatible 


STRINGS & THINGS™ 
Support for CHARACTER MANIPULATION (string support), 
SHELL, BATCH, MUSIC, CMD LINE, and ENVIRON CTRL. 


$69.95 each 


P.O. Box 2517 


Cypress, CA 90630 A ean e 4 (714) 894- 6808 


California residents. please add 6% sales tax. 
Versions available for IBM Professional Fortran 
or MICROSOFT 3.2 Fortran 





Circle no. 1 on reader service card. 
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C Chest 


(Listing Continued, text begins on page 10) 


Listing One 
Static char Argbuf[128]; 
Static int Argc; 
Static: int Doingpipe = 0; 
static char *Cmdtail; 
/* File names for pipe processing. The padding lets us patch the name 
* with DDT rather than re-compiling. 
x7 
char ‘Pipe in =. APSPIPE.INVOXO\O\O” -§ 
char "Pipe out =o "ATePLPE OUT OAONG. 
PP Satin BG as a es ne wea ea ee gi ae * / 
Croot() 
/* Root module for Aztec CII. This is not the best C programming 
a in the world. It uses gotos; what some of the code is doing 
* is, by necessity, somewhat obscure. On the other hand it 
** does a bunch of complex stuff relatively efficently. 
of! 
register int k; 
register char *cp, *fname; 
blockmv(Argbuf, CBUF + 1, 127); /* Copy the command line somwhere * / 
Argbuf[*CBUF & Ox7f] = 0; /* safe and null terminate it. */ 
Argv[O] = ""; /* Initialize argv and argc * / 
cp = Argbuf; 
Argec= Ts 
while (Argc < MAXARGS) 
{ 
while (*cp == ' ') /* Skip leading blanks * / 
++Cp; 
if (*cp == 0) /* At end of command line */ 
break; 
elee iff *¢p ee '[%) /* Process a pipe */ 
Doingpipe = 1; 
Cmdtail = ++cp; 
/* 
** Pretend we saw a ">" to the Pipe out file. 
ey 
fname = Pipe out ; 
Kom 
goto redir?2; 
} 
else if (*cp == '>') /* redirect output */ 
{ 
k= Ts 
goto redirect; 
} 
(Continued on page 18) 
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"the finest compiler for MS-DOS and 
ds running on thousands of 8086 
“systems. 


fe ‘Aisothor' ina series of 


oe productivity notes on MS-DOS” mo 


_” software from UniPress. 


eo; Subject: ‘Multi- window fuil 3 
~ screen editor. i 


Multiple dindov ws allow several files 
* (or portions of the same file) to’ be 
_ edited simultaneously. Program- 
“mable through macros and the built- 
~~ inecompiled MEISP™ extension 

iS. tagheNe. | 


2 oe ‘Subject Compiler for MS- Dos. 


: 1 aioe’ C Compiler is regarded as 


Subject: Powerful Keyed File 
Access for MS- DOS. 


ee PHACT ISAM is a.keyed B+ tree 


” _file-manager providing easy.access 


“to and manipulation of records in 
oe database. , 


Trademarks of: Lattice, Lattice, Inc. UniPress EMACS and MLISP, UniPress 
Sollee inc MS-DOS, Microsoft: UNIX, AT&T Bell Laboratories —— =e 
Carousel MicroTools, inc.; PHACT. PHACT Associates; 8086, Intel: T!-PC 
Instruments; IBM-PC/AT, International Business Machines; DEC Scovel. 
Digital Equipment Corp 


Features: 


Ji Famed Gosling Version. : 

@ Extensible through the built-in 
MLISP programming language and . 
macros. 

@ Dozens.of source code MLISP. . 


functions; including C, Pascal and iv 


MLISP syntax-checking. 
@ EMACS runsonTI-PC™ IBM-PC AT 


DEC Rainbow™ or any other MS-DOS.” 


machine. Requires at least 384k. 


‘i Run Lattice® C or PsMake™ in. 


the background and EMACS will 


point to any errors.for ease-of de- . 


‘bugging. PsMake is.a UNIX™-style 
“make” utility.to automate.the proc- 
ess of building. complex programs. 


1 Optional Carousel Toots: UNIX- 


like facilities including cat,Cp,.Cd, 
logout, Is, mv, pwd; rm, set, sh 
and more. 


Features: 


~ BeRuns onthe 1BM-PC™ under 


MS-DOS.1.0,2.0-or 3.0 . 


¥. @ Produces highly optimized code. 
i Small, medium, compact-and 


large-address:models. available. 
@ Standard C.tibrary. 


A PLINK-— optional full function 


linkage editor including overla 
and support. 


Features: 


@ Supports fixed-and variable fenath 
records (1-9999 bytes). | 

@ Up to 9 alternate indices are Sup. 
ported. 

™@ Record locking allows each record 
in the database to allow git 7 
simultaneous updates. 

@ Records. canbe accessed on full . 
or partial.Key. 


@ Includes full Lattice linkable library | 


and.high-level functions. 


__Lattice C Compiler 


“Price: 


- Price: | 
EMAGS | $475 , 
One month-trial é 75 
Available.for UNIX.and. VMS: Fgh 

~ PsMake 179 
Carousel Tools 149” 
Full System 1, 299 


Includes EMACS’ (object); 









LUNIPRESS 
‘MACS — 


PsMake,-Lattice C; PHACT™ ISAM nd. ; J 3 


Carousel Tools. 


Price: 


PLINK 


PHACT ISAM $250 


For mote inforifation ont these ahd” 
other UNIX software.products, cal! or’ 
” write: UniPress Software, .nc.,°2025 


Lincoln Hwy., Edison, NJ 0881 fi 
Telephone: (201) 985-8000. Order’ 
Desk:.(800) 222-0550.{Outside:N.J): 
Telex: 709418. Japanese Distributor: 
Softec 0480 (85) 6565. European Dis- 
tributor: Modulator SA (031)59 22 22. 


OEM.terms available. 
Mastercard/Visa accepted. 


DniP 


Circle no. 77 on reader service card. 
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COMPILER 


FOR THE 8086"! FAY 








_» Source Code-available; call for lerms: 





$sSoftuware 


Your Leading Source for UNIX’ Software. 


Sez 
cs 


C Che Ss f (Listing Continued, text begins on page 10) 


Listing One 


redirect: 


redir?2: 


skippast: 
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else if (*cp == ‘'<"') /* redirect input */ 
{ 

ae ee 9 8 

while (#++cp == ' ") 

fname = cp; 


else if 


} 


else if 


{ 


while (*++cp) 


{ 
if (*ep. =e" 7 
{ 
*cpt+ = 0; 
break; 
} 
} 


close(k); 
k = k ? creat(fname, 0666) : open(fname, O_RDONLY) ; 
if (k == -1) 
{ 
perr("Can't open file for redirection <"); 
perr(fname); 
perc oe; 
exit(10); 
} 


if( Doingpipe ) 


/* The rest of the cmd tail is for the next 


* process so stop processing it. 
* / 


break; 


(*cp ee ea! | 
Argv[Argc++] = ++cp; 


whtie © Wap Se Ctep Pele) ) 
{ 


} 


*cpt++ = 0; 


cp+t+; 


( haswild(cp) ) 


Argc += do_wild(cp, Argv + Argc, MAXARGS-Argc-1); 
goto skippast; 


else 


( 


Argv[Argc++] = cp; 
while (*++cp) 


° * Age a t 
if. €fcp == ) (Continued on page 20) 
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@ SOFTWARE: 


| |_| 


PRESENTS 


CP/M 


Pom Ac 


acintosn. 


I.Q. SOFTWARE, in one historic move, brings more proven pro- 
grams to the Macintosh than have existed to date. In the giant world of 
CP/M based software, CP/M FOR THE MACINTOSH delivers 
the same friendly stand-alone environment to the software developer 





(professional programmer). If you are wondering why so many 
developers know and use CP/M it is because CP/M is powerful, easy 
to learn and easy to use. So easy to use that almost 1 MILLION 
USERS have CP/M based systems using CP/M based programs and 
enjoy these same benefits that you will with CP/M FOR THE 
MACINTOSH. 





2229 East Loop 820 North 
ms SOFTWARE... Fort Worth, Texas 76118 
(817) 589-2000 


CP/M is a dae red trademark of Digital Research, Inc. 
Macintosh is a registered trademark of Apple Computer, Inc 


C Ches f (Listing Continued, text begins on page 10) 
Listing One 


*cpt++ = 0; 
break; 


} 


exit(main(Argc,Argv)); 


execl( name, args ) 
char *name, *args; 
{ 

/ Execl has a variable number of arguments starting 
with args and continuing until a O arg is found. 
It is called with: 


execl( filename, argl, arg2-,....° 5 arenl, Oe 


All arguments must be character pointers. 

Execl overlays the current program with the program 
named "name". All the args are concatenated together 
with the args separated from one another by spaces. 
The concatenated array is used as the command line 

for the new process. Execv adds the .com to the end of 
name. 


Fe. ee AC. a a oa 


register char cp, *dest, -**arop: 


strcpy (CBUF, name a 
streat (CBU. %, COM" «}¢ 


initfcb(CBUF, DEF FCB ); /* Try to open the file * / 
if( bdosopen(DEF FCB) == Oxff ) 

return(0); Pe Van foo Lt * / 
/* 
3 Put together a new command line from the arguments 
* / 


dest = CBUF + 1; 
for(argp = &args ; *argp && dest < CBUFEND ; argpt++ ) 
{ 


for(cp = *argp ; *cp && dest < CBUFEND ;: *dest++ = *cp++ ) 


9 


*dest++ = ' '; 


) 


*dest = '\O'; 


*CBUF 


(int)dest -— (int)CBUF ; 
loadldr(); /* We won't return from loadldr */ 
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exit(code) 


/* Finish up the execution of a C program. Chain to the 
* next process if appropriate. 
wale 
register char Tteiipn, rene, *dest : 
ebosall (7); /* Close all open files * / 
unlink(Pipe in); /* Get rid of the pipe temp file */ 
if ( code ) /* Try to abort an ongoing submit */ 
unlink("A:$$$.SUB"); /* Pile. * / 
if( Doingpipe ) /* Chain to next program in pipe */ 
rename(Pipe out, Pipe in); 
/* Get the file name from the command tail. First strip out 
* leading blanks, then terminate the file name with a null 
* if necessary (the rest of the command tail will be 
* arguments to the next file. 
air 5 
while(*Cmdtail == ' ') 
Cmdtail++4; 
tailp = Cmdtail; 
white(-*tailp && *tatip=t==")-'..) 
tailp++; ; 
Let Stari.) 
*tailp++ = '\0'; 
/* Chain to the next program * 
execi( Cameail, “<",: Pipe. in, taiip,: (char. *)70:.); 
/* If execl returns then we couldn't open the file */ 
perr( "Coulda t*open file at.end of: pipe: -"); 
perr(Cmdtail); 
perr(™ COM” ); 
unlink("A:$$$.SUB"); /* Try to kill a submit file * / 
unlink("$$$.SUB")s 
} 
boot ();3 
} 
a ae aa La nec igh rt ee he ee ect a tio se on mm * / 
perr(str) 
char SSEE 
{ 
j* Print a string by brute force. We can use this 
* whether or not stdout is open. 
*/ 
while(*str) 


bdos(2, *str++); 
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C Ch es f (Listing Continued, text begins on page 10) 
Listing One 


badfd() /* Called when a bad file descriptor is found */ 


{ 
errno = EBADF; 
return -l; 


noper() /* Do nothing, return 0 */ 


return QO; 


peued tow oul a sde ge  s we ce Oh eed ee a ee Se en * / 
initfcb(filename, fcb) 
char *filename, *fcb; 
{ 
/* Initialize the fcb pointed at by "fcb" with the filename 
* pointed to by "filename". Filename may include a drive 
. designator (X:) or either of the wild card characters * or 
e ?. See the text for more details. 
¥/ 
register char *f'p » 
register int as 


for ( i = FCBSIZE , fp = fcb ; --i >= 0 ; ¥*fp++ = 0 ) 


9 


if( *filename && filename[1] == ':") 

{ 
/[* Fill inthe @2five: field of the Feb 
sat | 


*fcb = (char)( toupper(*filename) - 'A' + 1); 
filename += 2; 


} 


expand _name(fcb, filename); 


I a et le als se a ah es ay dp Ws yan Ni Sl elt ag Oe eR PE cn a Rag ka peek A a A a * / 
expand _name(dest, src) 
char *src,' Fdest- 
{ 
/* Turn the filename at src into the name and type fields of an fcb 
* pointed to by dest (dest is the address of an fcb, src is an 
B Aescr “etring). 
* 
* "XRG VV becomes LB op yy" 
* "XR VRE becomes SSx77 F722 y77e" 
* yg «agi! ce dl becomes TR e te Rees 
x 
* The src parameter may be terminated by either a '\0O' or a 
* 


space (' '), 
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ie 


register char Hot, end 43 
dot = ++dest; /* Skip past drive field */ 
for! CTE 3s Sete 8. s 3 /* Dest =. 2277772974772 * / 
dote: =: C fared) <7: 72" hy L0G 
dot = &dest[8]; 
end = &dest[10]; 
whilet Sere: &6 cresrco Pe. be ')) 
{ 
if (*srcime<'*") 
( 
££2C dest .< dot.) | 
while (dest < dot) 
*dest++ = '?'; 
else 
while (dest <= end) 
*destt++ = '27'; 
} 
else if (*src == '.') 
dest = dot; 
else 
*dest++ = *src; 
STC++ 5 
} 
} 
ee ee al ie a a eS Se tte * / 
#define DEF FCB Ox5c /* CP/M Default FCB location * / 
tdefine erchfitstCicb):. ¢-bdos( Oxli, (fcb) *) & Oxff .) 
#define srchnext(fcb) C tdos( Oxt25-(Ctcb) -) & Oxft-) 
int do wild(fname, argv, maxarg ) 
char *fname, **argv ;} 
int nNaxarg 3 
{ 
register char *dest,.*srcs 
register unsigned int tmp; 
register int iy argc. Os 
extern char Falloc():s 
/* Expand fname (which may contain wild card characters) 
- into a series of entries in argv. Return an updated argc. 
* Maxarg is the maximum permitted value of argc. 
* Fname may be terminated by either a '\O' ora! '. 
7 
initfcb(fname, DEF FCB); 
Lf. €. (tapes archfirst (DEF .FCB:)).: ta: Oxff. ) 
{ 
do 
{ 
R£C: (dest::= fname = aiblocCi3)) ==. 0) 


{ 
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NEED DATABASE APPLICATIONS. HOW CAN 


ACCOUNTANTS TO ZOO KEEPERS 
I SPEAK THEIR LANGUAGE? 
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HERE’S HOW: 
dBASE II’ SOFTWARE 


Whether you’re keeping 
track of accruals or zebras, 
dBASE III™ will easily create 
specialized applications 
which speak your customers’ 
language. 

You can quickly write 
applications for your cus- 
tomers because dBASE Ill 
contains a high-level lan- 
suage of plain-English com- 
mands that’s powerful and 
easy to use. And, because we 
understand that your cus- 
tomers’ needs often change, 
we made it easy to modify 
the structure of your 
database. 

Let’s say you've set up a 
database application for a 
zoo keeper. After using the 
application for six months, 
he discovers that he needs to 
specify the sex of all his ani- 
mals, an item he forgot to ask 








for when you created the 
application. You've got 1,397 
records entered, but you 
have to change the structure 
of the database. 


These commands: 


USE ANIMALS 


Selects the database. 


MODIFY STRUCTURE 


Move the cursor to the place 
where you want to insert the 
new field. 


Y field. 
Then new field will be in- 
serted above the cursor 
position. 





Specifies that then new field 
is titled “SEX”, has the de- 





fault value of a character 
field, and is one column 





: Saefirms that you're 
| satisfied with what 
== you've done. Now, 
your customer is ready to 
identify his zebras as boys or 
girls using the program you 
created for him. 


dBASE III makes your 
programming effort quick 
and productive because it’s 
an English-language exer- 
cise whether your customer 
is keeping track of cash flow 
or feeding schedules. 


For a dealer near you call 
(800) 437-4329, ext. 2333. 
In Colorado 
(303) 799-4900, 
ext. 2333. 








Software from 


ASHTON: TATE 


We'll put you in control. 


Circle no. 4 on reader service card. 





C C, hes f (Listing Continued, text begins on page 10) 
Listing One 


perr( "Not 
exit(1); 


} 


src 
if ( *(fname + 1) 
{ 


*dest++ 
*dest++ 


enough memory to expand wildcard"); 


= ((char-*) (€bmp<<5) + Oxd0)) >: 13 


pe ts!) 
*fname; 
SORE 

i] yid4+4+ 


/* Transfer name from DMA buffer to 
* argument. 
eZ 
fC C*sre e Ox7£y)- te es 
*dest++ = *src+t++; 
else 
Ssrct++; 
if( i == 8 ) 
{ 
$£*0 (¥etc:.& On7£9:. eee 3 
break; 
else 
*dest++ = '.' ; 
} 
} 
*dest = '\O'; 


argv[argct+t+] = 


{ 


fname; 


tmp = srchnext(DEF FCB) ; 
} 
while( (tmp != Oxff) && (arge < maxarg) ); 
} 
return( argc ); 
} 
Ua eg lei i eee a re ee a ee ee * / 
haswild(str) 
char Tetrs 
/* Retarn ‘trae Lf. stt hasta. 99) 68: a9 2 - ge EL: 
* / 
register int e 
do: { 
c = *str++; 
liter eee SF eee TAN) 
return(l1); 
} while(c && ct!t=' '); 
return(0); 
} End Listing One 
26 
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Listing Two 


we we woe we we we we we we we we we we we we we we we we we we 


LOADER.ASM Assembly language support routines for pipes 


This loader is essentially that used by BDS C (written by Leor 
Zolman). The loader is copied to just below the tpa 
(into the default disk buffer) by loadldr. This’ location limits the 
size of the command tail for the next program in the pipe to 
128 -~ 49 = 79 characters (128 = buffer size, 49 = loader size). 
We're putting the loader where we do because an 8080 doesn't have 
a relative jump instruction. Since we are actually copying the 
loader to the place where it will execute, any labels defined 
at link time will be wrong (because they'll be pointing into 
the original code, not the copy). So, we have to copy it to 
some known place to know where to jump to when we loop. The bottom of 
the bdos, however, is not a known place. It will vary from 
system to system. 


Before this loader is called, the calling program should put 
the new command line into the buffer at 0x80. 

It should also have an opened the file to be 

loaded with the fcb for that file in the default FCB space 
Cat Ox5e)'. 


closec equ 16 : CP/M function: Close file. 
reads equ 20 - CP/M function: Read sequential 
sdma equ 26 > CP/M function: Set DMA address 
Fed equ 5CH - Default FCB location 
tpa equ 100H - Start of transient program area 
tbuff equ 80H - start of command tail buffer 
bdos equ O5H - bdos jump vector 
bdosv equ O6H - pointer to bdos start address 
‘ LOADER (local) 
* Onventry: 
: D/E = the DMA address ( 0x100 initially ) 
: B/C = points at an fcb for the opened file. This feb..is' physicaily 
. located just beneath the loader in memory. 
: SP = just below the bdos. 
> On exit: 
: All registers are destroyed 
loader: 1l1xi &,tpa sdestination address of new program 
loadl: push d ; push dma addr 
push b ;push feb.pointer 
mv i c,sdma :;:set DMA address for new sector 
call bdos 
pop d sget pointer to working fcb in DE 
push d sand re-push “he 
mvi c,reads.;read' 4 sector 
call bdos 
pop b *restore fcb pointer into BC 
pop d sand dma address into DE 
ora a send of file? 
4z tpa-8 -if not, get next sector (goto ‘load2:') 


(Continued on next page) 
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C C, h es f (Listing Continued, text begins on page 10) 
Listing Two 


mov d,b smove the fcb pointer to d/e 

mov e,c 

mvi c,closec ; close the file 

call bdos 

mvi c,sdma ; reset DMA pointer, tbuf is at 0x80 

Lat d,tbuff 

call bdos 

jmp tpa ; and go invoke the program 
Losd?: = kei h,80h ;bump dma address 

dad d 

xchg 

jmp tpa-46 ;and go loop (at loadl) 

LOADLDR __ (public) 


return: to: the calling: routine: 


we we we we we we we we we we we 


On exit; 
B = default FCB address (Ox5c) 
D.° = tpa start address (0x100) 
oP = first address: of -BDOS 


public loadldr_ 


This routine loads the loader into memory, modifys the stack pointer 
and registers as required by the loader, and passes control to the 
loader. Since loadldr jumps directly to the loader, it will not 


loadldr_: 

Lxi d, loader :) tt. Sree 

bxi h,tpa-49 > D. = dest; 

mvi b,49 > b = 49; /* size of loader */ 
Las ldax d -- deaf 

mov m,a ; *d++ = *h++4+; 

inx d : 

inx h oo 

dcr b ; while( --b > 0 ); 

jnz Ll 

Let by feb . b ec address of feb 

2x dL d,tpa ; d = dma address; 

PALE bdosv ; h = address of BDOS 

sphl ; sp = address of BDOS 

jmp tpa-49 ; jump to the loader 

end 

End Listings 
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REALIZABLE FANTASIES 





The GNU Manifesto 


by Richard Stallman 


This month’s installment of Realiz- 
able Fantasies features a guest ap- 
pearance by Richard Stallman. Stall- 
man, inventor of the original 
much-imitated Emacs editor and for- 
merly of the Artificial Intelligence 
Lab at MIT, has worked extensively on 
compilers, editors, debuggers, com- 
mand interpreters, the Incompatible 
Timesharing System (ITS) and the 
Lisp Machine operating system. He 
pioneered terminal-independent dis- 
play support in ITS. Since then he has 
implemented one crashproof file sys- 
tem and two window systems for Lisp 
machines, and designed a third win- 
dow system now being implemented; 
this one will be ported to many sys- 
tems including GNU.—M.S. 


GNU, which stands for Gnu’s Not 
Unix, is the name for the complete 
Unix-compatible software system that 
I am writing so that I can give it away 
free to everyone who can use it. Many 
other programmers are helping me. 
Contributions of time, money, pro- 
grams and equipment are greatly 
needed. 

So far we have a portable C and Pas- 
cal compiler which compiles for Vax 
and 68000, an Emacs-like text editor 
with Lisp for writing editor com- 
mands, a yacc-compatible parser gen- 
erator, a linker, and around 35 utili- 
ties. A shell (command interpreter) is 
nearly completed. When the kernel 
and a debugger are written, by the end 
of 1985 I hope, it will be possible to 
distribute a GNU system suitable for 
program development. After this we 
will add a text formatter, an Empire 
game, a spreadsheet, and hundreds of 
other things, plus on-line documenta- 
tion. We hope to supply, eventually, 
everything useful that normally comes 
with a Unix system, and more. 

GNU will be able to run Unix pro- 
grams, but will not be identical with 
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Unix. We will make all improvements 
that are convenient, based on our expe- 
rience with other operating systems. In 
particular, we plan to have longer file- 
names, file version numbers, a crash- 
proof file system, filename completion, 
perhaps, terminal-independent display 
support, and eventually, a Lisp-based 
window system through which several 
Lisp programs and ordinary Unix pro- 
grams can share a screen. 

Both C and Lisp will be available as 
system programming languages. We 
will try to support UUCP, MIT Chaos- 
net, and Internet protocols for 
communication. 

GNU is aimed initially at machines 
in the 68000/16000 class, with virtual 
memory, because they are the easiest 
machines to make it run on. The extra 
effort to make it run on less powerful 
machines will be left to someone who 
wants to use it on them. 


Why I Must Write GNU 
If I like a program, I must share it with 
other people who like it. Software sell- 
ers want to divide the users and con- 
quer them, making each user agree not 
to share with others. I cannot in good 
conscience sign a nondisclosure or soft- 
ware license agreement. For years I 
worked within the Artificial Intelli- 
gence Lab to resist such tendencies. 
My efforts were wasted. I cannot re- 
main in an institution where such 
things are done for me against my will. 
So that I can continue to use com- 
puters without violating my principles 
I have decided to put together a body 
of free software sufficient to enable me 
to get along without any software that 
is not free. I have resigned from the AI 
lab to deny MIT any legal excuse for 
preventing me from giving GNU away. 


Why GNU Will Be Compatible with 
Unix 
Unix is not my ideal system, but it is 


not too bad. The essential features of 
Unix seem to be good ones, and I| think 
I can fill in what Unix lacks without 
spoiling them. Furthermore a system 
compatible with Unix would be conve- 
nient for many other people to adopt. 


How GNU Will Be Available 

GNU is not in the public domain. Ev- 
eryone will be permitted to modify and 
redistribute GNU, but no distributor 
will be allowed to restrict its further 
redistribution. That is to say, propri- 
etary modifications will not be al- 
lowed. I want to make sure that all ver- 
sions of GNU remain free. 


Why Many Other Programmers 
Want to Help 

I have found many other programmers 
who are excited about GNU and want 
to help. Many programmers are un- 
happy about the commercialization of 
system software. It may enable them 
to make more money, but it requires 
that they feel like competitors with 
other programmers rather than like 
comrades. The fundamental act of 
friendship among programmers is the 
sharing of progams; marketing ar- 
rangements now in use essentially for- 
bid programmers to treat others as 
friends. The purchaser of software 
must choose between friendship and 
obeying the law. Naturally, many de- 
cide that friendship is more important. 
But those who believe in law often do 
not feel at ease with either choice. 
They become cynical and think that 
programming is just a way of making 
money. 

By working on and using GNU rath- 
er then proprietary programs, we can 
be hospitable to everyone and obey the 
law. In addition, GNU serves as an ex- 
ample to inspire and a banner to rally 
others to join us in sharing. This can 
give us a feeling of harmony, which 1s 
impossible if we use software that is 
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not free. For about half the program- 
mers I talk to, this is an important hap- 
piness that money cannot replace. 


How You Can Contribute 

I am asking computer manufacturers 
for donations of machines and money. 
I’m asking individuals for donations of 
programs and work. 

One computer manufacturer has al- 
ready offered to provide a machine. 
We can use more. One consequence 
you can expect if you donate machines 
is that GNU will run on them at an ear- 
ly date. The machine should be able to 
operate in a residential area, and not 
require sophisticated cooling or power. 

I have found very many program- 
mers eager to contribute part-time 
work to GNU. For most projects, such 
part-time distributed work would be 
very hard to coordinate; the parts, 
written independently, would not work 
together. But for the particular task of 
replacing Unix, this problem is absent. 
A complete Unix system contains hun- 
dreds of utility programs, each of 
which is documented separately. Most 
interface specifications are fixed by 
Unix compatibility. If each contribu- 
tor can write a compatible replacement 
for a single Unix utility, and make it 
work properly in place of the original 
on a Unix system, then these utilities 
will work right when put together. 
Even if Murphy creates a few unex- 
pected problems, assembling these 
components will be a feasible task. 
(The kernel will require closer commu- 
nication and will be worked on by a 
small, tight group.) 

If I get donations of money, I may 
be able to hire a few people full or part- 
time. The salary won't be high by pro- 
grammer’s standards, but I’m looking 
for people for whom building commu- 
nity spirit is as important as making 
money. | view this as a way of enabling 
dedicated people to devote their full 
energies to working on GNU by spar- 
ing them the need to make a living in 
another way. 


Why All Computer Users Will 
Benefit 

Once GNU is written, everyone will be 
able to obtain good system software 
free, just like air. This means much 
more than just saving everyone the 
price of a Unix license. It means that 
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much wasteful duplication of system 
progamming will be avoided. This ef- 
fort can go instead into advancing the 
state of the art. 

Complete system sources will be 
available to everyone. As a result, a 
user who needs changes in the system 
will always be free to make them him- 
self, or hire any available programmer 
or company to make them for him. Us- 
ers will no longer be at the mercy of 
one progammer or company that owns 
the sources and is in sole position to 
make changes. 

Schools will be able to provide a su- 
perior educational environment by en- 
couraging all students to study and im- 








prove the system code. Harvard’s 
computer lab used to have the policy 
that no program could be installed on 
the system if its sources were not on 
public display, and upheld it by actual- 
ly refusing to install certain progams. I 
was very much inspired by this. 
Finally, the overhead of considering 
who owns the system software and 
what one is or is not entitled to do with 
it will be lifted. Arrangements to make 
people pay for using a program, in- 
cluding licensing of copies, always im- 
pose a tremendous cost on society 
through the cumbersome mechanisms 
necessary to figure out how much (that 
is, which programs) a person must pay 


dBASE II outfoxed! 


Who says the most popular database management system is the best? 


Introducing FoxBASE Ii ™ 'the new relational database management system that’s 
dBASE II source compatible. It does everything dBASE II does ... plus a whole lot more. 


e Runs 3 to 5 times faster 
e Sorts up to 20 times faster 
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record ...50% more than dBASE II 
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What’s more, it costs less. 


e Compiles program sources into 
compact object code 

e Comes with a sophisticated online 
manual and HELP facility 

e Has twice as many memory variables 


MS-DOS $395. AOS/VS $995. 


FoxBASE II is available now for: IBM-PC, IBM-PC/XT, COMPAQ & IBM compatibles, Tl Profes- 
sional, DG Desktop, DG MV Series, and many others. Call or write today for more information. 
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DACOR 
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FoxBASE II is a trademark of Fox Software Inc. 
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for. Furthermore, only a police state 
can force everyone to obey. Consider 
the analogy of a space station where 
air must be manufactured at great 
cost: charging each breather per liter 
of air might be fair, but wearing the 
metered oxygen mask all day and all 
night would be intolerable even if ev- 
eryone could afford to pay the bill. 
And the TV cameras everywhere to see 
if you ever took it off would be outra- 
geous. It would be better to support the 
air plant with a head tax and chuck the 
masks. Copying all or parts of a pro- 
gram is as natural to a progammer as 


breathing, and as productive. It ought 
to be as free. 


Some easily rebutted objections 
to GNU’s goals 

“Nobody will use it if it is free, because 
that means they can’t rely on any sup- 
port. You have to charge for the pro- 
gram to pay for providing the sup- 
port.” If people would rather pay for 
GNU plus service than get GNU free 
without service, a company to provide 
just service to people who have ob- 
tained GNU free ought to be 
profitable. 


rules 
and 
regulations 
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systems 
analysis 
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LPA Sigma-PROLOG UNIX Version — 68,000 

LPA Sigma-PROLOG UNIX Version — VAX 

LPA PROLOG Language Interpreter Documentation 


APES Augmented PROLOG — MS-DOS 
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We must distinguish between sup- 
port in the form of real programming 
work and mere handholding. The for- 
mer is something one cannot rely on 
from a software vendor. If your prob- 
lem is not shared by enough people, the 
vendor will tell you to get lost. If your 
business needs to be able to rely on sup- 
port, the only way is to have all the nec- 
essary sources and tools. Then you can 
hire any available person to fix your 
problem and you will not be at the mer- 
cy of any individual. With Unix, the 
price of sources puts this out of consid- 
eration for most businesses. With GNU 
this will be easy. It is still possible that 
there will be no available competent 
person, but this problem cannot be 
blamed on distribution arrangements. 
GNU does not eliminate all the world’s 
problems, only some of them. 

‘Meanwhile, the users who know 
nothing about computers need hand- 
holding, i.e., they need for others to do 
for them the things which they could 
easily do themselves, but don’t know 
how to. Such services could be provided 
by companies that sell just handholding 
and repair service. If it is true that users 
would rather spend money and get a 
product with services, they will also be 
willing to buy the service, having got 
the product free. The service companies 
will compete in quality and price; users 
will not be tied to any particular ore. 
Meanwhile, those of us who don’t need 
the service should be able to use the 
program without paying for the service. 

‘You cannot reach many people 
without advertising, and you must 
charge for the program to support 
that. It’s no use advertising a program 
people can get free.”’ There are various 
forms of free or very cheap publicity 
that can be used to inform numbers of 
computer users about something like 
GNU. But it may be true that one can 
reach more microcomputer users with 
advertising. If this is really so, a busi- 
ness which advertises the service of 
copying and mailing GNU for a fee 
ought to be successful enough to pay 
for its advertising and more. This way, 
only the users who benefit from the ad- 
vertising pay for it. On the other hand, 
if many people get GNU from their 
friends, and such companies don’t suc- 


ceed, this will show that advertising 


was not really necessary to spread 


| GNU. Why is it that free market advo- 
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cates don’t want to let the free market 
decide this? 

‘““My company needs a proprietary 
operating system to get a competitive 
edge.” GNU will remove operating sys- 
tem software from the realm of compe- 
tition. You will not be able to get an 
edge in this area, but neither will your 
competitors be able to get an edge over 
you. You and they will compete in 
other areas, while benefiting mutually 
in this one. If your business is selling 
an operating system, you will not like 
GNU, but that’s tough on you. If your 
business is something else, GNU can 
save you from being pushed into the 
expensive business of selling operating 
systems. I would like to see GNU devel- 
opment supported by gifts from many 
manufacturers and users, reducing the 
cost to each. 

“Don’t programmers deserve a re- 
ward for their creativity?” If anything 
deserves a reward, it is social contribu- 
tion. Creativity can be a social contri- 
bution, but only insofar as society is 
free to use the results. If programmers 
deserve to be rewarded for creating in- 
novative programs, by the same token 
they deserve to be punished if they re- 
strict the use of these programs. 

‘“Shouldn’t a programmer be able to 
ask for a reward for his creativity?” 
There is nothing wrong with wanting 
pay for work, or seeking to maximize 
one’s income, as long as one does not 
use means that are destructive. But the 
means customarily used in the area of 
software development today are based 
on destruction. Extracting money from 
users of a program by restricting their 
use of it is destructive because the re- 
strictions reduce the amount that and 
the ways in which the program can be 
used. This reduces the amount of 
wealth that humanity derives from the 
program. When there is a deliberate 
choice to restrict, the harmful conse- 
quences are deliberate destruction. 
The reason a good citizen does not use 
such destructive means to become 
wealthier is because, if everyone did so, 
we would all become poorer from the 
mutual destructiveness. This is Kant- 
ian ethics, or, the Golden Rule. Since I 
do not like the consequences that result 
if everyone hoards information, | am 
required to consider it wrong for one 
person to do so. Specifically, the desire 
to be rewarded for one’s creativity does 
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not justify depriving the world in gen- 
eral of all or part of that creativity. 

‘Won't programmers starve?” | 
could answer that nobody is forced to 
be a programmer. Most of us cannot 
manage to get any money for standing 
on the street and making faces. But we 
are not, as a result, condemned to 
spend our lives standing on the street 
making faces, and starving. We do 
something else. But that is the wrong 
answer, because it accepts the ques- 
tioner’s implicit assumption that with- 
out ownership of software, program- 
mers cannot possibly be paid a cent. 
Supposedly it is all or nothing. The real 
reason programmers will not starve is 
because it will still be possible for them 
to get paid for programming; just not 
as much as now. 

Restricting copying is not the only 
means for making a profit in software 
development. It is the most common 
means because it brings in the most 
money. If it were prohibited, or reject- 
ed by the customer, software business 
would move to other methods of profit- 
making that are now used less often. 
Probably programming would not be 
as lucrative as it now. But that is not an 
argument against the change. It is not 
considered an injustice that sales 
clerks make the salaries that they now 
do. If programmers made the same, 
that would not be an injustice either. 
(In practice they would still make con- 
siderably more than that.) 

“Don’t people have a right to control 
how their creativity is used?” Control 
over the use of one’s ideas really consti- 
tutes control over other people’s lives; 
and it is usually used to make their 
lives more difficult. People who have 
carefully studied the issue of intellec- 
tual property rights (such as lawyers) 
say that there is no intrinsic right to 
intellectual property. The kinds of sup- 
posed intellectual property rights that 
the government recognizes were creat- 
ed by specific acts of legislation for 
specific purposes. For example, the 
patent system was established to en- 
courage inventors to disclose the de- 
tails of their inventions. Its purpose 
was to help society rather than to help 
inventors. At the time, the life span of 
17 years for a patent was short com- 
pared with the rate of advance of the 
state of the art. Since patents are an 
issue only among manufacturers, for 
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whom the cost and effort of a license 
agreement are small compared with 
setting up production, the patents of- 
ten do not do much harm. They do not 
obstruct most individuals who use pat- 
ented products. 

The idea of copyright did not exist in 
ancient times, when authors frequently 
copied lengthy extracts from other au- 
thors in works of non-fiction. This 
practice was useful, and is the only 
way many authors’ works have sur- 
vived even in part. The copyright sys- 
tem was created expressly for the pur- 
pose of encouraging authorship. In the 
domain for which it was invented— 
books, which could be copied economi- 
cally only on a printing press—it did 
little harm, and did not obstruct most 
of the individuals who read the books. 

All intellectual property rights are 
just licenses granted by society be- 
cause it was thought, rightly or wrong- 
ly, that society as a whole would bene- 
fit by granting them. But in any 
particular situation, we have to ask: 
Are we really better off granting such 
license? What kind of act are we li- 
censing a person to do? The case of 
programs today is very different from 
that of books a hundred years ago. The 
fact that the easiest way to copy a pro- 
gram is from one neighbor to another, 
the fact that a program has both 
source code and object code, which are 
distinct, and the fact that a program is 
used rather than read and enjoyed, 
combine to create a situation in which 
a person who enforces a copyright is 
harming society as a whole both mate- 
rially and spiritually; in which a person 
should not do so regardless of whether 
the law enables him to or not. 

“Won't everyone stop programming 
without a monetary incentive? Actual- 
ly, many people will program with ab- 
solutely no monetary incentive. Pro- 
gramming has an_e irresistible 
fascination for some people, usually 
the people who are best at it. There is 
no shortage of professional musicians 
who keep at it even though they have 
no hope of making a living that way. 
But really this question, though com- 
monly asked, is not appropriate to the 
situation. Pay for programmers will 
not disappear, only become less. So the 
right question is: Will anyone program 
with a reduced monetary incentive? 
My experience shows that they will. 
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For more than ten years, many of the 
world’s best programmers worked at 
the Artificial Intelligence Lab for far 
less money than they could have had 
anywhere else. They got many kinds of 
non-monetary rewards: fame and ap- 
preciation, for example. And creativity 
is also fun, a reward in itself. Then 
most of them left when offered a 
chance to do the same interesting work 
for a lot of money. What the facts show 
is that people will program for reasons 
other than riches; but if given a chance 
to make a lot of money as well, they 
will come to expect and demand it. 

Low-paying organizations do poorly in 

competition with high-paying ones, 

but they do not have to do badly if the 
high-paying ones are gone. 

‘““We need the programmers desper- 
ately. If they demand that we stop 
helping our neighbors, we have to 
obey.” You’re never so desperate that 
you have to obey this sort of demand. 
Remember, millions for defense, but 
not a cent for tribute. 

‘Programmers need to make a living 
somehow.” There are plenty of ways 
by which programmers can make a liv- 
ing without selling the right to use a 
program. Here are a number of 
examples: 

e A manufacturer introducing a new 
computer will pay for the porting of 
Operating systems onto the new 
hardware. 

e The sale of teaching, handholding 
and maintenance services could also 
employ programmers. 

e People with new ideas could distrib- 
ute programs as freeware, asking for 
donations from satisfied users. I am 
told that several people are already 
working this way successfully. 

e Users with related needs can form 
users’ groups, and pay dues. A group 
would contract with programming 
companies to write programs that 
the group’s members would like to 
use. 

All sorts of development can be funded 

with a software tax: 

e Suppose everyone who buys a com- 
puter has to pay x percent of the 
price as a software tax. The govern- 
ment gives this to an agency like the 
NSF to spend on _— software 
development. 


¢ But if the computer buyer makes a 


donation to software development 


himself, he can take a credit against 
the tax. He can donate to the project 
of his own choosing—often, chosen 
because he hopes to use the results 
when it is done. He can take a credit 
for any amount of donation up to the 
total tax he had to pay. 

e The total tax rate could be decided 
by vote of the payers of the tax, 
weighted according to how much tax 
they paid in the previous year. 

The consequences: 

e The computer-using community 
supports software development. 

e This community decides what level 
of support is needed. 

¢ Users who care which projects their 
share is spent on can choose this for 
themselves. 

In the long run, making programs 
free is a step toward the post-scarcity 
world, where nobody will have to work 
very hard just to make a living. People 
will be free to devote themselves to ac- 
tivities that are fun, such as program- 
ming, after spending the necessary ten 
hours a week on required tasks such as 
legislation, family counseling, robot 
repair and asteroid prospecting. There 
will be no need to be able to make a 
living from programming. 

We have already greatly reduced the 

amount of work that the whole society 
must do for its actual productivity, but 
only a little of this has translated itself 
into leisure for workers because much 
nonproductive activity is required to ac- 
company productive activity. The main 
causes of this are bureaucracy and iso- 
metric struggles against competition. 
Free software will greatly reduce these 
drains in the area of software produc- 
tion. We must do this in order for tech- 
nical gains in productivity to translate 
into less work for us. 
Richard Stallman, 166 Prospect 
Street, Cambridge, MA 02139. Copy- 
right © 1985 Richard Stallman. Per- 
mission is granted to make and dis- 
tribute copies of this article as long as 
the copyright and this notice appear, 
and the copies are distributed at no 
charge. 
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Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 4 years of actual 
use. Ask NASA, IBM, Xerox or the 
hundreds of other organizations that use 
them. Every time you see a new micro- 
processor-based product, there’s a good 
chance it was developed with Avocet 
cross-assemblers. 


Avocet cross-assemblers are easy to use. 
They run on almost any personal com- 
puter and process assembly language for 
the most popular microprocessor families. 


Your Computer Can Be A 
Complete Development System 
Avocet has the tools you need to enter 


and assemble your soft-ware and finally 
cast it in EPROM: 


VEDIT Text Editor makes source code 
entry a snap. Full-screen editing plus a 
TECO-like command mode for advanced 
tasks. Easy installation - INSTALL pro- 
gram supports over 40 terminals and 
personal computers. Customizable 
keyboard layout. CP/M-80, CP/M-86, 
Monreal CAS - oe eee $150 


EPROM Programmers let you pro- 
gram, verify, compare, read, display 
EPROMS but cost less because they 
communicate through your personal 
computer or terminal. No _ personality 
modules! On-board intelligence provides 
menu-based setup for 34 different 
EPKOMS, EEPROMS and MP Us (40-pin 
devices require socket adaptors). Self- 
contained unit with internal power supply, 
RS-232 interface, Textool ZIF socket. 
Driver software (sold separately) gives 
you access to all programmer features 
through your computer, lets you down- 
load cross-assembler output files, copy 
EPROM to disk. 


Model 7228 Advanced Programmer 
— Supports all PROM types listed. Super- 
fast “adaptive” programming algorithm 
programs 2764 in 1.1 minutes. 


Model 7128 Standard Programmer — 
Lower-cost version of 7228. Supports all 
PROM types except “A” versions of 2764 
and 27128. Standard programming algo- 
rithm programs 2764 in 6.8 minutes. 


Model 7956 and 7956-SA Gang Pro- 
grammers — Similar features to 7228, 
but program as many as 8 EPROMS at 
once. 7956-SA stand-alone version copies 
from a master EPROM. 7956 lab version 
has all features of stand-alone plus RS- 
232 interface. 

EPROM: 2758, 2716, 2732, 2732A, 2764, 2764A, 
27128, 27128A, 27256, 2508, 2516, 2532, 2564, 68764, 
68766, 5133, 5143. CMOS: 27C16, 27C32, 27C64, 
MC6716. EEPROM: 5213, X2816A, 48016, 12816A, 


5213H. MPU (w/adaptor): 8748, 8748H, 8749, 
8749H, 8741, 8742, 8751, 8755. 


7228 Advanced Programmer $ 549 
7128 Standard Programmer 429 
7956 Laboratory Gang Programmer 1099 
7956-SA Stand-Alone Gang Programmer 879 
GDX Driver Software 95 
481 8748 Family Socket Adaptor 98 
511 8751 Socket Adaptor 174 
755 8755 Socket Adaptor 135 


CABLE RS-232 Cable (specify gender) 30 


HEXTRAN Universal HEX File Con- 
verter — Convert assembler output to 
other formats for downloading to de- 
velopment systems and target boards. 
Also useful for examining object file, 
changing load addresses, extracting parts 
of files. Converts to and from Intel, 
Motorola, MOS, RCA, Fairchild, Tek- 
tronix, Tl, Binary and HEX/ASCII Dump 
formats. For CP/M, CP/M-86, MSDOS, 
PODOS 2a Ee eS FS ee $250 


Ask about UNIX. 
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Would you hire an entire band when 
all you need is one instrument? Of 
course not. 


So why use a whole orchestra of 
computers when all you need is one 
to develop software for virtually any 
type of micro-processor? 


The secret? Avocet’s family of 
cross-assemblers. With Avocet 
cross-assemblers you can develop 
software for practically every kind of 
processor — without having to 
switch to another development 
system along the way! 


68000 CROSS-ASSEMBLER — With 
exhaustive field testing completed, our 
68000 assembler is available for imme- 
diate shipment. XMAC68K supports 
Motorola standard assembly language for 
the 68000 and 68010. Macros, cross- 
reference, structured assembly statements, 
instruction optimization and more. Linker 
and librarian included. Comprehensive, 
well-written manual. 


To find out more, call us toll-free. 


1-800-448-8500 


VISA and Mastercard accepted. All popular disc formats now available 
--please specify. Prices do not include shipping and handling -- call for exact 
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tively little known in the United 
States until recently. A number of 
factors are converging, however, that 
augur well for an increase in its use 
and popularity. First of all, several in- 
terpreters offering respectable perfor- 
mance and support are now commer- 
cially available, and apparently other, 
high-performance interpreters will 
soon be released. Second, the luke- 
warm attitude of hardware manufac- 
turers towards logic programming 
seems to be changing: the new Tek- 
tronix machine was released with Pro- 
log already running on it, and Apple 
plans to offer a version of Prolog for 
the Macintosh. Third, there is an in- 
creasing demand from computer peo- 
ple on all levels for artificial intelli- 
gence technology, and one of the most 
promising areas of AI research has 
been the area of programming in logic. 
Logic programming (see Table 1, 


a ogic programming has been rela- 


cc. 99 


is read as if, and the commas are 
read as and, so the whole clause can be 
read: The conclusion is true if condi- 
tionl and condition2 and ... condi- 
tionN are all true. 

Prolog is the most widespread logic 
programming language. A Prolog in- 
terpreter is based on a general purpose 
inference mechanism (typically using 
the resolution and unification tech- 
niques); to take advantage of this 
mechanism, the programmer need only 
declare the relationships between data 
items in Horn clause form. A logic pro- 
gram does not need overt control con- 
structs (such as for or while) because 
the interpreter makes most of the con- 
trol decisions. 

One consequence of this approach is 
portability. A logic program could be 
made to run on all of the common ver- 
sions of Prolog with relative ease. Be- 
cause logic programs depend on logic, 
not on the implementation details of 


Prolog’s admirers claim that to use the language Is to 
program in logic. Is the claim true, and is programming 
in logic something we should want to do? 


page 37) is based on the idea that 
statements in first-order predicate log- 
ic, cast in Horn clause form, can be 
used directly as a programming lan- 
guage. In Horn clause form, one con- 
clusion is followed by zero or more 
conditions, as follows: 


conclusion :- 
conditionl, 
condition2, 


ot 


conditionN. 


John Malpas, Pulsetrain, 747 Green- 
wich St., New York, NY 10014. Copy- 
right 1984, Pulsetrain. 


any particular interpreter, they are 
guaranteed to be upwardly compatible 
with faster interpreters or more effi- 
cient hardware. [But see D. E. Corte- 
si’s discussion of parallelism (page 
50) for an important caveat.—Ed./ 
Because the interpreter makes most of 
the fundamental control decisions, and 
because of the portability over hard- 
ware, any developments in the imple- 
mentation of Prolog interpreters and in 
the hardware substratum are particu- 
larly interesting. There have been sev- 
eral such developments recently. 

The first Prolog was implemented 
by Colmerauer in Fortran and was 
very slow and awkward to use (for the 
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development of Prolog see Table 2, be- 
low right). In 1977 Warren and Per- 
eira wrote an interpreter/compiler in 
DEC-10 assembly language that 
showed that Prolog could be just as ef- 
ficient as Lisp. A number of versions 


have been written since then in C for | 


Unix machines. Clark and McCabe’s 
original Micro-PROLOG was in assem- 
bly language on PCs, but the latest ver- 
sion (called Sigma-PROLOG) is writ- 
ten in C and runs on larger machines. 
There are several versions of Prolog 
written in Lisp for Lisp machines. 

In 1983, ICOT (where the Japanese 
fifth generation project is being devel- 
oped) announced their Personal Se- 
quential Inference Machine, which has 
a processor instruction set optimized to 
run Prolog—a Prolog machine. When 
I saw this computer, it had 80MB of 
main memory. Warren has also fol- 
lowed the approach of optimizing pro- 
cessor microcode to run Prolog. His 
company (Quintus Computer) has a 
fast Prolog running on a VAX and a 
Sun workstation. Other fast Prolog in- 
terpreters are under development at 
UC Berkeley and Argonne National 
Laboratories. Prolog for machines 
based on parallel architecture is being 
developed by Shapiro in Israel, at Im- 
perial College in London, and at ICOT. 

In the area of microcomputers, there 
are currently three commercial ver- 
sions of Prolog for the IBM PC, and 
Apple will announce a version of Pro- 
log for the Macintosh this spring. 


There are other implementations as | 


well, some written in Lisp and of value 
for learning the language. The three 
versions for the PC are true commer- 
cial products (for sources of Prolog see 
Table 3, page 38). 


Features of Prolog 

The fact that Prolog is an implementa- 
tion of logic as a programming lan- 
guage makes the language distinctive 
in several ways. 


Prolog Can Express Knowledge 

Logic is a language capable of expres- 
sing situations and problems that pro- 
vides a way to describe accurately de- 
cision-making behavior. Logic has 
precise semantics; that is, it is possible 
to understand unambiguously the 
meaning of a logical expression. Logi- 
cal expressions can be represented by 
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different logic languages such as Horn 
clauses. An expression in one logic lan- 
guage is translatable into an expres- 
sion in any other logic language. 

Kowalski has stated that “algorithm 
= logic + control,” which can be un- 
derstood as follows: an algorithm is 
composed of the set of data relation- 
ships defining an application domain 
(that is, its logic) and the control infor- 
mation about how to use those data re- 
lationships. In logic programming, be- 
cause the interpreter takes care of the 
control part of this equation, a pro- 
grammer’s primary responsibility is to 
learn the internal logic of an application 
domain. Writing an application pro- 
gram in Prolog amounts to expressing 
this internal logic as Horn clauses. 


. Pracraiinn Logic Systems, h Inc. 
3) Crescent Drive : | 
_W wanes CT 06460 





Prolog Describes, It Does Not 
Simulate 

When a procedural language program 
is used to model a process in the world, 
the relationship between the program 
and the world is one of simulation. 
This means that the program is work- 
ing on the same level as the process it- 
self, and so must have large amounts of 
data from the process. 

On the other hand, when a logic pro- 
gram is used to model a process in the 
world, the relationship between the 
program and the world being modeled 
is one of description. The program ex- 
ists on a higher level than the process it 
describes, because it contains state- 
ments and generalizations (knowl- 
edge) about the process. 


-Micro-PROLOG (IBM PC, other PCs, cP/M) 


_ Sigma-PROLOG (written in C for Unix machines) 


APES (A Prolog Expert System Shell) 


_ Logicware 
| 1000 Finch Avenue West | 
- Toronto, Ontario 

Canada M3J 2V5 


M-Prolog (assembly language on IBM mainframe, cross compiled to PC, 


VAX, et al.) 


_ Expert Systems International _ 
- 1150 First Avenue | - 
King of Prussia, PA 19406 


. PROLOG- 1 (assembly language on MSDOS, CP/M, VAX, Macnee?) 


oe Advisor eae ns aaa Shell) 


| Sal Intemational 
333 Ravenswood Avenue 
ome Park, CA 94025 


C-Prolog (written in C for Unix machines with at least 256K addressable 


_ memory) 


: University of New Hampshire | 


| UNH Prolog (written in C for rBoreny Unix) 


S Universit of Edinburgh 
| _DEC-10 Prolog serieieies language) 


: Aes. Urivesay Conada 


Waterloo Prolog (assembly language on IBM mainframes) 


Public Domain 


UNSW Prolog (written in C for Unix machines) 
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A program is a simulation of the 
world whenever the state of the com- 
puter itself (1.e., CPU registers, memo- 
ry, etc.) is an integral part of the mod- 
el. In the case of a descriptive program, 
however, the state of the computer 
functions only to implement the logic 
of the program and does not play a role 
in the model per se. 


Prolog Does Not Use Destructive 
Assignment 
Logic programming achieves its de- 
scriptive power by dispensing with the 
destructive assignment statement. 
Once a logical variable assumes a val- 
ue, the programmer cannot arbitrarily 
decide to give it another value. In con- 
trast, all procedural languages depend 
upon destructive assignment as their 
most essential semantic feature. 
Destructive assignment is best under- 
stood as an optimization of memory 
resources. In a language based on de- 
structive assignment, any change in a 
data value in the program is irrevoca- 
ble; there will be no trace of previous 
values of the variable unless the pro- 
grammer has made provisions to save 
them. 


Prolog Statements Have Both 
Declarative and Procedural 
Interpretations 
There are two ways to read a Horn 
clause logic program: declaratively 
and procedurally. Consider the exam- 
ple rule: 
pays__too_much_rent (X) :- 
lives_in (X, new_york). 
There is a procedural way to read this 
rule: 
To find someone who pays too much 
rent, 
find a resident of New York. 
or 
To prove that John pays too much 
rent, 
verify that he lives in New York. 
But it is also possible to read the rule 
declaratively, which enables Horn 
clauses to be used as a knowledge rep- 
resentation language: 
Someone who pays too much rent ts 
someone who lives in New York. 
or 
All people who live in New York 
pay too much rent. 
In the declarative reading, the rule be- 
comes a definition of a relationship 
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Old operating systems never die, they get 
better with agel Multitech Electronics, a 
large manufacturer of complete comp- 
uter systems has an inventory of CP/M 
computers that must go. These fully gua- 
ranteed high performance units are 
new factory packaged systems with the 
CP/M 2.2 operating system, 64K of RAM, 
dual floppy disk drives, and CBASIC 
programming language. You'll get more 
than what you paid for with complete 
systems at bargain prices. 
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This low price also includes: full Compatibility system. Call Multitech today for more on your 
with the wide bank of CP/M software, CP/M 2.2 CP/M solutions. Cash or credit cards only. Limited 
operating system with utilities and manuals, quantities available. 


CBASIC 2 programming language, as well as a 
User’s Manual and Service Manual. In addition 


e ELECTRONICS 
you'll get a 30 day full warranty. And Multitech Miultitech INC. 
will also throw in a Liberty Freedom 100 terminal SUNNYVALE. CALIFORNIA 84087 
for $400.00 with the purchase of an MIC-500 TELEX : 755042 MAC SUVL 


IN CALIFORNIA, CALL: (408) 773-8400 
} : OUTSIDE CALIFORNIA, CALL: (800) 538-1542 
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"To 2 give s some idea of what a ore / 
gramming code is like, it will be useful 
to examine a simple program. The sim- 
plest Horn clause is an assertion of 
fact, consisting of a conclusion fol- 
lowed by no conditions: | 


lives_in(john, new_york). — : 
which can be read: John lives in New 
York. A rule is another form of Horn 


clause that shows the dependence of 


one fact on other facts: 
pays_too_m uch_ren ( jen n) = 


Prolog is built on the model of symbolic | 
logic created by Frege. There are two 


varieties of logic to consider: proposi- 
tional logic and first-order oe 
logic. 

Propositional logic conuder only re- 
lations between (unanalyzed) proposi- 
tions, and only such relations as bear on 
the propositions’ truth or falsity. Propo- 
sitions can be combined with other 
propositions to form new propositions 


via the logical connectives and, or, not, 


and implies. Propositional logic con- 
cerns itself with what propositions can 
be derived from what other proposi- 
tions. For example, from proposition P 
or Q, where P and Q are propositions, 
we can derive Q. Also, from P ames Q 
and P we canderiveQ. 

First-order predicate logic involves 
more complex expressions (formulae) 
that contain variables and that become 
propositions only when values from 
some domain of discourse are substi- 
tuted for these variables. Thus, P(x) 
becomes a proposition and can be true 
or false only when the variable x is as- 
signed a specific value or is otherwise 
quantified. The ways of quantifying x 
that are particularly important for 
first-order predicate logic are via the 
universal and existential quantifiers, 
which turn the variable x into, respec- 
tively, for every x and there exists an x. 
First-order predicate logic is suffi- 
ciently powerful to express a good deal 
of mathematics and to serve as the 
model for a programming language. 
Prolog depends on the resolution tech- 
nique in its implementation of first- 
order predicate logic. 

Resolution is a decision algorithm 
for satisfiability in first-order predi- 
cate logic. Because the truth of a for- 
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| ut the formula is, 





Se come en _ 
York, he pays too much rent. The 
word “john” is a constant, and these 
rules and facts contain explicit knowl- 


edge applicable to “john.” 


A logical variable in Prolog is writ- 
ten as a word beginning with a capital 
letter. The “too much rent” rule above 


can be generalized so that it applies to 


all New York residents by replacing 
“john” with a variable: 


mula in first-order predicate logic de- 
pends on how values are assigned to its 
variables, one generally talks about the 
satisfiability of a formula, rather than 
about its truth. A formula is satisfiable 
if and only if it is true under some ad- 
missible assignment of values to its 
variables. Thus, if P(a) means “a is a 
prime number” and Q(a) means “a is 
greater than 11 and less than 17,” the 
formula there exists an x such that 
(P(x) and Q(x)) is satisfiable, namely, 
by the value assignment x = 13. 

Resolution is a partial decision algo- 
rithm; it will invariably determine the 
unsatisfiability of an unsatisfiable for- 
mula, though it is not guaranteed to halt 
in fact, satisfiable. 
(This halting problem is a consequence 
of the fundamental unsolvability of first- 
order predicate logic, not a deficiency of 
the algorithm.) By recasting the formu- 
la, though, you can demonstrate its sa- 
tisfiability (if it is satisfiable), throwing 
the halting problem into the unsatisfia- 
bility-proving half of the task. 

The resolution method requires that 
the formula be in a particular form, 
variably referred to as clause form, 
Horn clause form, or conjunctive nor- 
mal form. (These terms are not really 
interchangeable, but for this sketchy 
discussion we can regard them as so.) 
The basic idea is this: we eliminate all 
existential quantifiers-by a trick that 
involves treating the variables they 
quantify as functions of a particular 
sort. Once the existential quantifiers 
are eliminated, we simply drop univer- 
sal quantifiers, assuming that all re- 
maining variables are universally 
quantified. And we transform the for- 
mula into a logically equivalent formu- 
la whose top-level components are all 


which can be read: [f John lives in New 12k 


in New York pays iba rauch rent. 1. The 
variable ““X”’ will match any constant, 
so this rule can be used to assert that — 
the rent of any New York resident is. 
excessive. 

a rile oe vanables : in this way 


plicable to all people who live i in New : 





connected by ands, whose second- level 
components are all connected by ors, 
and whose third- level components are 
all elementary formulae or their nega- 
tions. For example, one simple formula 
in this form is (A or B) and (not-C or D). 
Resolution consists of a single rule, 

repeatedly applied. The rule simply 
combines the top-level components of 
the formula pairwise, selecting compo- 
nents that have an element in common, 
with the proviso that in one case the ele- 
ment is negated. The rule throws out 
these conflicting elements and sticks 
the result together into one component. 


‘Thus, (Ac or B) and (not-A or C) resolves - 


to (B or C) by throwing out the A and | 
the not-A. If, after repeatedly banging 
components against each other this 
way, we come up empty-handed (com- 
ponents annihilate each other utterly), 
then the formula is unsatisfiable. 
Unfortunately, not all the compo- 
nents are so simple in form; does P(a) 
cancel out not-P(x)? Answering that 
question in the particular case involves 
a process not unlike finding the lowest 
common denominator for two fractions 
and is accomplished by an algorithm 
called unification. Unification finds a 
substitution for x and a that is just suf- 
ficiently general to stand for both. 
Resolution as originally defined is 
not an efficient algorithm. In 1965, JA, 
Robinson defined an improved resolu- 
tion algorithm that got around some of 
the problems of combinatorial explo- 
sion that plagued resolution, but this 
still left unsolved the problem of how to 
decide which pairs of components to re- 
solve. Current work in AI is emphasiz- 
ing heuristic strategies that take advan- 
tage of knowledge about the domain of 
discourse in guiding resolution. 
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(called “pays_too_much_rent”’) that 
holds between various data items. The 
translation of a rule into specific ma- 
chine actions is the job of the interpret- 
er, not of the programmer. 































Prolog Can Be Used to Implement a 
Meta-language 

Prolog is an inherently extensible lan- 
guage because it is possible to modify 
the behavior of the interpreter within 
the context of the language itself. 
Kowalski refers to this phenomenon as 
the meta-language/object language 
relationship. 

A meta-language controls the inter- 
pretation of an object language. A 
meta-language can be implemented in 
the object language (Prolog itself) as a 
program running on top of the inter- 
preter. The meta-language program 
receives queries and assertions from 
the user, transforms them in consulta- 
tion with the knowledge base, then 
constructs queries in the object lan- 
guage and executes them. 

When first confronting Prolog code, 
many people mistakenly assume that 
an end user will have to learn how to 
write Prolog queries in order to use a 
Prolog program. One way that a meta- 
language can be used is to give Prolog 
an alternative syntax; as a result, the 
user interface to a program is com- 
pletely specifiable. Another applica- 
tion of a meta-language involves sav- 
ing the inference path used by Prolog 
to answer a query, so that the user can 
see how an answer was generated. This 
ability to explain how an answer was 
arrived at is an essential component of 
expert systems. Note that this is some- 
thing more than mere extensibility, 
which allows the programmer to add to 
the repertoire of the language. Here 
we are considering the ability of a 
piece of software to reason about its 
own reasoning processes. 


Applications of Logic 
Programming 

Prolog has been used for artificial in- 
telligence applications as well as more 
conventional applications, some of 
which are ennumerated below. 


Relational Data Bases 

Because the relational data base model 
is a logical, well-developed formalism, 
it can be represented in Horn clause 
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form in a straightforward manner. 
Prolog has also proved particularly 
useful for data base front ends. Many 
types of query languages have been im- 
plemented in Prolog, including QBE, 
SQL, relational algebra, and one simi- 
lar to VisiCalc. 


Software Engineering 

Kowalski has shown that a program 
specification can be directly trans- 
formed into a logic program, provided 
that it is written in a logical specifica- 
tion language (such as DeMarco’s data 
flow diagrams). The initial translation 
produces a top down design. Each piece 
of the design can be successively refined 
independently of the other pieces. 


Natural Language 

Colmerauer originally invented Prolog 
to perform natural language process- 
ing. Warren and Pereira have contin- 
ued work in this field with the Definite 
Clause Grammar formalism (a form of 
top down parser for natural language). 
More recently, researchers at [COT 
have implemented BUP (a bottom up 
parser for natural language). 


Knowledge Representation 
Knowledge representation paradigms 
used in artificial intelligence, such as 
semantic networks, frames, production 
rules, and objects, can all be expressed 
in logic and implemented in logic pro- 
gramming. According to Hayes, se- 
mantic networks and frames are essen- 
tially alternative syntaxes for logic. 


Expert Systems 
Once knowledge has been represented, 
an expert system can put it to use for 
expert consultation. Expert systems 
have been built with Prolog in a variety 
of areas, including equation solving, 
medicine, law, architecture, factory 
automation, etc. 

Future applications are left as an ex- 
ercise for the reader. 
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INTRODUCING 
Interface Technologies’ Modula-2 
Software Development System 


The computer press is hailing Modula-2 as “the next 
standard in programming languages.” Modula-2 
combines the strengths of Pascal with the features 


that made C so popular, like independent eu 


compilation and direct hardware control. ; 
But until today, no company offered a | 


though, there’s a new tool at your disposal. 


The fast, powerful tool 
for programmers 


The breakthrough is here: Interface Technologies’ 
new Modula-2 Software Development System for 
the IBM® PC, XT, AT and compatible 
computers to give programmers the same 
quantum leap in productivity spreadsheets 
and word processors gave to end-users. It 
can reduce monotonous wait time, will 
‘dramatically increase speed, help stop 
thoughtless mistakes, and free you to become more 
creative in virtually all of your programming efforts. 


How to speed input and 
eliminate 30% of errors 


Thirty percent of programming mistakes are syntax 
errors and simple typos in the program structure. Our 
“syntax-directed” Modula-2 editor does away with 
these time-consuming headaches once and for all. 

; It speeds input by 
cutting manual typing 
as much as 90%, letting 
. you enter statements 
with a single keystroke. 
For example, if you type 
a capital “I” to begin a 
line, the editor completes 
_ the logical “IF THEN” 
_ statement automatically, so 
| eee You can concentrate on what you 
Enter complete statements Want to program, rather than con- 
with one keystroke. centrate on what you're typing. 

The editor locks out errors, finishing statements and 
procedures in perfect accord with the standardized 
rules of Modula-2. It also indents and formats your 
text automatically, making programs easy to read and 
maintain, an important feature on big projects. 









Modula-2 system that made the development 
of software fast, easy and efficient. Now, : 8 
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It not only has a faster compiler, it also 
saves time by compiling while you edit. 


And if you leave an undefined variable or data type, 


the editor detects the mistake and gives you the option 
of on-line “help” to correct it. No other programming 
text editor offers you so much innovation at any price. 


How to turn “wait time” 
into “work time” 


The vast majority of 
programming time is 
spent waiting, and the 
biggest slowdown is most 
often with compilers. 






Our compiler turns 
wait time to work time 
with a new innovation 
that lets you compile 


in the “background.” qi a 
With background 


compilation, your program is automatically compiled 
into object code line by line as you work, every minute 
you spend writing or editing a Modula-2 program! 

When you’re finished editing, all that’s left for the 
compiler is a quick mopping up job that generates 
optimized native code in a single pass. 


How quick is “quick”? 


Thanks to background compilation and the fact that 
the compiler itself is so fast, Interface Technologies’ 
compiler turns 100 lines of typical Modula-2 text 
into optimized machine code in under five seconds. 

Plus the Interface compiler produces compact code 
with execution speed superior to that produced by any 
other Modula-2 compiler on the market. 


How to do two things at once 


Along with the background compiler and syntax- 
directed editor, which can save you hours every day and 
make you more productive, Interface Technologies’ 
Software Development System gives your monitor 
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windows so you can refer to one file while you edit 


another simultaneously, saving you even - 


more time. 

Concurrent editing of two a 
or more files is especially use- 
ful when doing programming § 
work that’s intended for § 
separate compilation, and ff 
Interface Technologies has "*5%ikmweessso 
the only Modula-2 system SSS 
on the market that provides — 
you with this helpful benefit 


for developing software. Work with multiple files 


faster, easier in windows. 


How preprogrammed modules 
speed development 


One of the advantages of Modula-2 is that it lets you 
build large, reliable programs quickly, by linking 
together many smaller “building-block” modules. 

The development system’s toolkit of precompiled 
program modules includes the standard Modula-2 
library, and adds exclusive link-and-run modules for 
direct calls to the operating system, sound, and color 
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A lour of Prolog 


by D. E. Cortesi 


The distinction between code and data 
in programming is as fundamental as 
that between theory and observation in 
science —and just as false. 


44g 























programming languages or, as I prefer to call them, the 

descriptive languages. There have been descriptive lan- 
guages before—notably the simulation languages like 
GPSS—but most are designed to serve specific application 
domains, while Prolog is intended for general programming. 
Descriptive languages require an approach to problem solv- 
ing that is radically different from the procedural approach 
used with an ordinary language like Pascal or BASIC. 

Not many readers know Prolog or have Prolog interpret- 
ers to experiment with. When planning this issue of DDJ, the 
editors realized that it would contain several large programs 
written in Prolog. Because Prolog is so different, they won- 
dered whether the readers would be able to follow the pro- 
gram listings. 

I had been exploring Prolog in my spare time, so I volun- 
teered to describe it from a programmer’s perspective. This 
article is not meant to be a complete tutorial (see Clocksin 
and Mellish! for that). It is rather an orientation tour to give 
you enough exposure to Prolog’s style so that you can make 
sense of the listings in the other articles. 


Pp rolog is a member of the general class of nonprocedural 


A Caution 

Be aware that the various implementors of Prolog don’t 
agree on its syntax and writers on Prolog don’t agree on the 
names of its parts of speech. In this overview, I’ve cast the 
examples in a presentation syntax that uses the tricks of 
professional typesetting for clarity. A sidebar that accompa- 
nies the article (“Prolog Syntax,” page 46) explores simple 
mappings to the syntax schemes of common implementa- 
tions. I’ve noted where my nomenclature varies from other 
writers’ usage. 


Prescribing and Describing 

We use the familiar programming languages to prescribe the 
solutions to a set of problems. We build the prescription 
from two radically different materials: active code and pas- 
sive data. The passage of time is an implicit part of a pre- 
scription. “To solve one of these problems,” we tell the com- 
puter, “do this, then do that’: that can be correctly 
understood only in the context created by this. 

All that changes in Prolog. In Prolog, we describe the 
solutions to a set of problems. “A solution to one of these 
problems,” we tell the computer, “looks like this or this or 
this”; each this must be (in principle) a true description of a 
solution, independent of its place in the program. There is no 
distinction between code and data. We simply describe what 
is true about the universe of discourse, using identical mech- 
anisms to describe true facts and true interpretations of the 
facts. 


Assertions and Queries 
Let’s tie these abstract notions down with an informal exam- 
ple. The problem is one that arises in a card-playing pro- 


gram: defining what a card is. The honor cards are defined as 
follows: 


a a a SR eee a ee Se 


David E. Cortesi, 430 Sherman Ave. #2] 2, Palo Alto, CA 
94306. 


Dr. Dobb’s Journal, March 1985 








card(a). 
card(k). 
card(q). 
card(j). 


These are sentences of fact that we may assert (add to the 
program) at once. We’ll deal with matters of syntax later; 
for the moment you should find it believable that, given 
those sentences, a Prolog system could conduct a dialogue 
along these lines: 


card(k)? 

yes. 

card(w)? 

not so far as I know. 


This is a conversation with a hypothetical Prolog system. I 
don’t know of any real systems whose dialogue is so natural 
nor whose negative answer is so humble. Nevertheless, we 
have here the essence of Prolog operation: a number of sen- 
tences are asserted (usually they are loaded from a file); the 
system is given a pattern to test against those sentences; and 
it replies “yes” or “no” depending on whether or not it can 
match the pattern. 

It probably occurs to you that it wouldn't take a particular- 
ly clever system to hold the example dialogue. A simple com- 
parison loop would do it. Of course, smarter dialogues are 
possible. For example, all systems allow the query pattern to 
contain variables as a way of requesting more information. 
(In this article, I shall indicate variables with italicized words; 
see the sidebar “Prolog Syntax” for the variety of ways to 
recognize variables in real systems.) Thus we may ask: 


card(what )? 
yes, what = a. 


yes, what = k. 
yes, what = q. 
yes, what = }. 


The system finds not just one but four matches to the query 
card(what )? and reports the resulting value of the variable 
what in each case. 


Compound Sentences 

Let’s continue the example by describing the other nine play- 
ing cards. Simply to assert nine more facts, card(10) through 
card(2), would be in the spirit of Prolog, but Prolog would be 
a poor, flat notation if it didn’t let us construct sentences in 
terms of other sentences. We can describe the remaining 
cards by asserting a single sentence: 


card(x ) if 
integer(x ) and 
less(1 x ) and 
less(x 11). 


Although awkwardly phrased, this sentence translates as the 
rule: “Something x is a card if it is an integer between 2 and 
10 inclusive.” Now we should be able to conduct the follow- 
ing dialogue: 
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card(6)? 
yes. 


This reveals a greater cleverness in the underlying system. To 
answer the question, the system had to identify 6 with the x in 
our latest sentence, then test the conjunction of three subordi- 
nate assertions, verifying the truth of integer(6), less(1 6), and 
less(6 11). Shortly, we will examine how this is done, but first 
let’s round out the idea of descriptive programming. 


Descriptive Programming 
The five sentences asserted so far constitute a purely descrip- 
tive solution to the problem of defining a card. We say that 
they define the card relation. The sentences, which are inde- 
pendent of each other, together enumerate all possible cases 
of the card relation. We don’t care in which order a Prolog 
system checks our question card(6)? It may test the question 
against the five sentences in any order; it will turn up the right 
answer regardless. This has important implications for perfor- 
mance (see the sidebar “Prolog in Parallel” on page 50). 
Such pure, timeless description is an ideal rarely achieved 
in practice; working Prolog programs usually have some de- 
pendencies on their sequence (we'll see why later). Never- 
theless, pure description should be the goal of a Prolog pro- 
grammer, just as clean structure and avoidance of side 
effects are goals when using a prescriptive language. 


Descriptive Arithmetic 

The implementation of arithmetic in the Micro-PROLOG 
product? is an example of just how far you can go in the 
direction of pure description. In that system, all arithmetic is 
implemented through two relations built into the system. 
The SUM relation is defined as: 


SUM(a bs ) 
for all sets of three numbers such that a +b =s. In our ex- 
ample, a set of sentences defined the card relation. The SUM 
relation is implemented so that you could almost believe it 


was defined by a huge data base of sentences such as: 


SUM(0 0 0). 
SUM(0 | 1). 


SUM(15 9 24). 
SUM(6 32761 32767). 


and so on for all negative and fractional numbers as well. 
This permits you to use SUM for either addition 


SUM(6 8 x )? 
yes,x = 14. 


or subtraction 


SUM(x 8 14)? 
yes, x = 6. 


with equal facility. 
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Micro-PROLOG’s built-in relation PROD is defined as 
follows: 


PROD(a bcd ) 


over all numbers such that (a *b )=(c +d ). PROD also is 
implemented as if the system contained an infinite data base 
of sentences about numbers: PROD(16 3 47 1) and so forth. 
The PROD relation answers queries needing multiplication, 
division, or modulus: 


PROD(16 4 prod 0)? 

yes, prod = 64. 
PROD(16 quotient 640)? 
yes, quotient = 4. 
PROD(1l6q 65,7)? 

yes,g =4,r = 1. 


[Extra credit puzzle: If PROD were limited to the domain of 
integers between 0 and 32767 inclusive——which Micro-PRO- 
LOG is not—how many sentences would its imaginary data 
base contain? ] 

Let’s use SUM to define a relation we’ll need later, the 
predecessor /successor relation: 


succ(x yp ) if 
SUM(1 xy ). 


We may read this as: ‘The successor of a number x is y, the 
number | greater than x.” The interesting thing is that, be- 
cause of the descriptive nature of SUM, we can work this 
relation in either direction: 


succ(7 what )? 
yes, what = 8. 
succ(what 14)? 
yes, what = 13. 


Therefore, the rule may also be: “The predecessor of a num- 
ber y is x, the number | less than y.” 

Other Prolog systems handle arithmetic relationships 
much more awkwardly: they attempt to graft the arithmetic 
expressions of procedural languages onto Prolog syntax. In 
these systems, the predecessor /successor relation would be 
defined with syntax such as: 


succ(x yp ) if 
V2 xoe 4, 


Not only does this introduce the whole truckload of reserved 
operator symbols and operator precedence rules into Pro- 
log—in sharp contrast to the economy of SUM and PROD — 
but we are not sure whether we can use a sentence of this 
form to query for a predecessor as well: it is unclear whether 
the assertion y =x +1 has meaning when worked “back- 


wards.”’ Such a system would require an explicit predecessor 
rule: 


pred(y x ) if 
x =y-1. 
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Prolog Syntax _ 


Many Prolog interpreters have been built, most of them aca- 
demic experiments, each with its own features and its own 
syntax as dictated by the interests and tastes of its developers 
and the direction of their research. One of the most influential 
Prolog interpreters was built for the DEC-10 at the University 
of Edinburgh.’ The best Prolog tutorial text! is based on this 
“Edinburgh syntax.” Because of this book, the newer prod- 
ucts for personal computers tend to follow the Edinburgh syn- 
tax as well. However, it would be unrealistic to expect that 
any interpreter would follow the syntax exactly; after all, an 
implementor must display creativity somehow. 

Another influential implementation is the Micro-PROLOG 
product; because it is available for both Z80-based CP/M 
systems and for MSDOS, Micro-PROLOG has the potential to 
outnumber all other Prologs put together. 

There are only eight syntactic concepts in the Prolog nota- 
tion: four kinds of items (numbers, variables, constants, and 
lists) and four higher groupings (clauses, conjunctions, facts, 
and rules). Even after adding whatever protocols are needed 
to signal the interpreter that a particular input represents a 
query or an assertion, you still have a very simple language. 
Let’s see how these eight elements are formed in the two 
main syntactic traditions. 

Although systems should differ litle | in ‘the formation of 
literal numbers, they will differ in the magnitude and preci- 
sion of the numbers supported. Some systems will support 
only signed integers while others allow reals. 

On the other hand, systems will differ dramatically i in ‘the 
rules for forming variables. Edinburgh-style systems take as 
a variable any token that begins with an initial cap: John is a 
variable, but john is a constant. This allows a good range of 
meaningful variable-names, but it is easy to make a mistake 
and type an initial cap in oe should be a i constant, as in the | 
assertion | 


likes(John,Mary). 


which asserts that anyone likes everybody. 

We may class the underscore as a capital letter, so that 
_john beconies a variable. The underscore alone is some- 
times an “anonymous variable,” a nameless place-holder 
used to name any argument that is aac but not used 
elsewhere in the sentence. : 

Micro-PROLOG limits variables to the initial letters 
“XxYyZz”" followed by zero or more digits. This restriction 
pinches: it makes it difficult to read sentences of more than 
trivial length. Contrast these versions of the QuickSort 
sentence: 


qsort([A B C| Tail] Out) if 
part({A B C! Tail] Left Right) and 
qsort(Left Sleft) and 
qsort(Right Sright) and 
cat(Sleft Sright Out). 


qsort([X Y Z|x] y) if 
part([X Y Z|x] z X1) and 
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‘The fe eeadabilityo of cacubled] is less seanortank than it welt 
seem at first; apparently no Prolog system retains variable- 
names after entering a sentence to the data base! When the 
‘sentences are listed afterward, they usually have system- 
generated numeric place-holders in the variable positions. 
-Micro-PROLOG simply 1 restricts input variables to what the 
system: will generate anyway. 
| Alter the Prolog system has set the rules for variables and 
has preen 
ever 15 left is a constant. Uncapitalized words are constants 
in all systems, but particular systems may use many other 
tokens as constants as well. Hyphenated words are usually 
_valid constants, although some systems may take mother-in- 
law as an arithmetic expression. In Micro-PROLOG, certain 
characters are both constants and delimiters; that is, they 
‘cannot be grouped with other characters in larger tokens, 
but they may be used as constant tokens themselves. The 
square brackets fall in this category: [ alone is a constant, 
but [a] is interpreted as three constants in a row. 








_ Most systems allow some kind of escape so that a constant 


: can be made from an arbitrary sequence. Edinburgh systems 
“use the single quote (‘The Tree’ is a constant), while in Mi- 
-cro-PROLOG, the double quote (“The Tree’’) serves that 
function. This creates a problem, because in Edinburgh sys- 
‘tems the double quote supports a glitch: it indicates a /ist 
composed of the quoted ASCII characters. Micro-PROLOG 
achieves the same result with the built-in relation STRING- 
-OF(c list ), meaning list is a list composed of the letters of 
constant c. The Micro-PROLOG relation can be worked 
backwards, from a list to a constant, but not so the Edin- 
irgh syntactic glitch. 









nb 1-influenced systems use the brackets and parenthe- 
os ses sto make a distinction: 






a cat(l 4 e x 5, 


“saying, in sect tek a list as an argument is different from 


: a list of arguments. The Micro-PROLOG syntax doesn't 


make that distinction (for good reason, as we'll see shortly), 
a so its i eeetvalent formulation would be: 


“(eat )x x) 


: We « can convert an n Edinburgh- style sentence to Micro-PRO- 
LOG form by making a series of simple transformations, one 
_ of which is to convert all square brackets to parentheses. 

This brings us to the clause, the fundamental way of nam- 
ing a relationship between items. In this article, I’ve followed 
the Edinburgh style, making a clause look like a procedure 
call in a prescriptive language. That puts the relation-name 
on a higher level than its arguments, so that 


length(| ] 0). 
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pted a set of special punctuation characters, what- 


n most Prolog dialects, a list pattern is [car \cdr ], but in 
PROLOG it’s (car|cdr )—using parentheses. The Ed- 


: With a descriptive definition of arithmetic, however, the pre- 
| decessor relation is simply: 


pred(y x ) if 
succ(x y ). 


Unfortunately, the designers of Micro-PROLOG stopped 
short of implementing all the implications of descriptive 
arithmetic. Their interpreter insists that the SUM and PROD 
relations be given enough literal data so that the query has a 
determinate answer. This means that the question SUM(x y 
18)? or ‘“‘what numbers x and y add up to 18?” won't be 
answered; the answer is indeterminate because an infinity of 
number pairs add up to 18. I think these relations should 
generate random integers for the unknowns, in arbitrary se- 
quence, until they have enough knowns to solve the query. 
How charming it would be to ask the system PROD(a b pr )? 
and be told “‘yes,a = 2,b = 138,p =I11,r = 265,” or 
some other arbitrary but consistent answer! 

Micro-PROLOG’s descriptive approach to arithmetic 1s 
not important in itself; let it serve as an example of the power 
and economy made possible with a descriptive style of pro- 
gramming—and as an example of how strange and unset- 
tling such a style initially can seem. 


Getting Formal 
It’s time for some formal nomenclature. Writers on Prolog 
don’t agree on the names of Prolog’s parts of speech (any 
more than its implementors agree on a syntax), so some of 
these names are my own invention. The named concepts, 
however, are always present and easy to identify. 

A Prolog program consists of a collection, usually called a 
data base, of sentences that define relations. A sentence’s 
initial word identifies the relation of which it is a part; all the 


| sentences that begin with that word define the relation. In a 


preceding example, we defined the card relation in five sen- 
tences, each beginning with the word “card.” 

In addition to the relations defined by the programmer, 
certain fundamental relations are defined by code built into 
the Prolog interpreter. 

A clause is a word followed by a parenthesized list of 
(possibly zero) items: card(6), for example. We'll explore 
the variety of items shortly. (What I call a clause different 
writers have dubbed a predicate, a function, and an atom. ) 

Sentences have two forms. A fact consists of a single 
clause: 


card(k). 
rank(k 13). 


The sense of a fact is that the named relation is always true 
of the given items. The second form of a sentence is the rule. 
It consists of a clause, an if symbol, and one or more clauses 
separated by and symbols: 


succ(x yp ) if 
SUM(x | y ). 

card(x ) if 
integer(x ) and 
less(1 x ) and 
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less(x 11). 


A sequence of one or more and-delimited clauses is called a 
conjunction. The sense of a rule is that the relation is true of 
these items as long as all of the clauses of the conjunction are 
also true. 


The function of the Prolog interpreter is to answer gue- | 
ries. The form of a query is simply a conjunction, usually 2 2 
: Matching i is just a comparison 


delimited by some kind of query symbol to trigger the inter- 
preter into action. The interpreter answers a query by verify- 
ing each clause within it against the data base. Now, take 
this slowly: a clause is verified (1) when it matches a fact, or 
(2) when it matches the clause at the head of a rule and the 
conjunction from that rule has been verified as a query. 

In other words, to answer the query card(6)? the inter- 
preter will match the query’s first and only clause to the 
clause at the head of the following rule: 


card(x ) if 
integer(x ) and 
less(1 x ) and 
less(x 11). 


As a result, it will pose the conjunction 


integer(6) and 
less(1 6) and 
less(6 11)? 


to itself as a new query. 

Zowie! Recursion! This nesting of queries continues until 
all clauses match facts or system-defined relations or until a 
clause that can’t be matched causes the query to fail. That’s 
the entirety of Prolog execution: the recursive matching of 
clauses into the data base until all clauses have been verified 
or until some clause can’t be matched. 

In principle, there is no defined order for searching the 
sentences of a relation and no defined order for verifying the 
clauses of a conjunction. In practice, programmers rely 
heavily on the expectation that the system will test the sen- 
tences of a relation in the order they are asserted, not at- 
tempting the second until the first has failed. Also in prac- 
tice, there is a strong assumption that the clauses of a 
conjunction will be verified in order from left to right. 


item Types 


is composed of sentences, a sentence that is either a fact or a 


rule, and a query that is merely a conjunction to be tested 


one clause at a time. All that remains is to specify what sort 
of items we may name as the arguments of a clause. There 
are four: the number, the constant, the variable, and the list. 

The number needs no explanation: it is simply a literal 
number. Some Prologs support only integer arithmetic, 
while others allow floating- -point numbers. 

The constant is a notion that may be unique to Prolog. A 
constant is a literal word. It doesn’t stand for anything, being 
neither the name of something nor a character array or 
string. The value of a constant is simply itself, just as the 
value of 6 is 6, the value of ‘“ta” is ‘ta,’ and the value of 
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| ing process does not depend on the fo 
would work just as well if the ‘tel ati 0 1- name 


Seine systems, owe: may not pert m 


hi bie inner, or fundamental 
formaliz ~_ cements. using ‘the © presenta 


C ~ con junction({ ]). 
We've seen almost the whole of Prolog syntax: a relation that | 








parentheses. 


(length [ ] 0). 


Clauses are combined to ark 





clause of a conjunction oe 3 ime if between the head 
of a rule and its conjunction. - _ 
Whoever devised the Edinbareh syntax ectablished the co- 


_lon-hyphen (:-) as the if symbol, set the comma as the and 


symbol, and required a period at the end of an asserted sen- 


tence (but a question mark at the start of a seals Thus, | 


the Edinburgh form of length is 


length({ ] 0). 

length([ Head | Tail] Len) :- 
length(Tail Tlen), 
-succ(Tlen ieee 



















The Micro-PROLOG syntax for clauses, con is, and 
rules is rigorously logical but even 1 less s friend] — 
((length()0)) 
((length (X|Y) z) 
(length Y ay 
hos: KZ) 







everything i is lists. A claus i 


| tole Geo 
-constant(name yo 


conjunction([cl etc ]) if 
clause(c ) and 
conjunction(efc ). 


sentence([ head | conj }) if 
clause(head ) and 
conjunction(conj ). 


Undoubtedly, Edinburgh-style interpreters store asserted 


sentences in a similar nested-list arrangement; they simply. 
put a nice front end on it. 

_ So does Micro-PROLOG, except that it uses a variety of 
front ends, each written in Prolog. Because the system allows 
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APROTEK 1000™ EPROM PROGRAMMER 










TECHNICAL 
BREAKTHROUGH 
NOW ALLOWS A 
PRICE 
BREAKTHROUGH 










only 
$250.00 


A SIMPLE, INEXPENSIVE SOLUTION TO PROGRAMMING EPROMS 


The APROTEK 1000 can program 5 volt, 25XX series through 2564, 27XX 
series through 27256 and 68XX devices plus any CMOS versions of the above 
types. Included with each programmer is a personality module of your choice (others 
are only $10.00 ea. when purchased with APROTEK 1000). Later, you may re- 
quire future modules at only $15.00 ea., postage paid. Available personality 
modules: PM2716, PM2732, PM2732A, PM2764, PM2764A, PM27128, 
PM27256, PM2532, PM2564, PM68764 (includes 68766). (Please specify 
modules by these numbers). 


APROTEK 1000 comes complete with a menu driven BASIC drtiver programmer 
listing which allows READ, WRITE, COPY, and VERIFY with Checksum. Easily 
adapted for use with IBM, Apple, Kaypro, and other microcomputers with a RS-232 
port. Also included is a menu driven CPM assembly language driver listing with Z-80 
(DART) and 8080 (8251) I/O port examples. Interface is a simple 3-wire RS-232C 
with a female DB-25 connector. A handshake character is sent by the programmer 
after programming each byte. The interface is switch selectable at the following 
6 baud rates: 300, 1.2k, 2.4k, 4.8k, 9.6k and 19.2k baud. Data format for program- 
ming is ‘‘absolute code’’. (i.e., it will agra exactly what it is sent starting dt 
EPROM address 0). Other standard downloading formats are easily converted to 
absolute (object) code. 


The APROTEK 1000 is truly universal. It comes standard at 117 VAC 50/60 HZ 
and may be internally jumpered for 220-240 VAC 50/60 AZ. FCC verification 
(CLASS B) has been obtained for the APROTEK 1000. 

APROTEK 1000 is covered by a 1 year parts and labor warranty. 


FINALLY — A Simple, Inexpensive Solution To Erasing EPROMS 


APROTEK-200™ EPROM ERASER APROTEK-300™ only $60.00. 

Simply insert two EPROMS This eraser is identical to APROTEK- 
ee aechch ON. da ae minutes, 200™ but has a built-in timer so that the 
you switch OFF and are ready to ultraviolet lamp automatically turns off in 
reprogram. 10 minutes, eliminating any risk of overex- 


APROTEK-200™ only $45.00. posure damage to your EPROMS. 
APROTEK-300™ only $60.00. 


APROPOS TECHNOLOGY 
1071-A Avenida Acaso, Camarillo, CA 93010 
CALL OUR TOLL FREE ORDER LINES TODAY: 
1-(800) 962-5800 USA or 1-(800) 962-3800 CALIFORNIA 
TECHNICAL INFORMATION: 1-(805) 482-3604 
Add Shipping Per Item: $3.00 Cont. U.S. $6.00 CAN, Mexico, HI, AK, UPS Blue 




































Circle no. 8 on reader service card. 


GREAT PROGRAM ... 
TERRIBLE MANUAL ... 


How often have you seen or heard that said 
about software? 

If you have a first-class program you deserve the 
BEST documentation. At A/N SOFTWARE we can 
provide you with a top-quality manual in the 
shortest possible time. 

Whether it’s a complete service from writing, 
to design, artwork, typesetting, mechanicals, and 
printing, or any step along the way, your manual 
will be in a class with the best documentation 
available today. 

Our staff consists of writers, artists, testers, 
and even includes a CPA. Business and technical 
programs are a specialty. We pride ourselves on 
designing manuals that look expensive, but aren't. 

We understand the time constraints of the soft- 
ware business; we’ll meet your deadlines. 

We’re proud of our work and would like to send 
you samples. For additional information, samples, 
or just some advice from the experts call: 


_. . 516-549-4090 . . . or write 


PVA SOFTUIARE Inc. 


Melville, NY 11747 








































































Circle no. 5 on reader service card. 
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WIRELESS FILE 
TRANSFER. 


APPLE TURNOVER™ 


A “wireless file transfer’ package for the IBM PC® to Apple Il and 
back, and back again. Apple turnover is a firmware board which 
fits into any slot in the IBM PC® or compatible, and software 
running under MS-DOS®. No modems, no serial links, no hassles, 
no problems. APPLE TURNOVER™ will format Apple CP/M® and 
Apple DOS 3.3 disks. Leave your IBM and Apple computers where 
they are. Simply bring your Apple disk to work and transfer your file 
toan MS-DOS disk. Allows for minor modifications to text and data 
files. It’s a simple, inexpensive, fast high performance alternative 
to complicated serial links and modems. 


XENO-COPY PLUS™ 


A“wireless file transfer’ software program for your |BM PC and most 
PC look-a-likes. XENO-COPY PLUS™ copies files between IBM-PC® 
and many CP/M® and foreign MS-DOS® disk formats. An uncom- 
plicated and inexpensive way to transfer text and data files. 
XENO-COPY PLUS™ allows you to format, copy from and write to 
nearly eighty different formats. Also, allows for minor modifications 
to text and data files. XENO-COPY PLUS™ can be upgraded to 
XENO-DISK™ for the price difference. 


XENO-DISK™ 


The high performance model of XENO-COPY PLUS™. XENO-DISK™ . 
formats, writes to, and copies from over 100 different disk formats oe 
including 40 and 80 track 5%” disks. XENO-DISK™ supports the use i 
of several 8” disk formats. XENO-DISK™ contains a powerful table 
driven text translator, “Text-Tran.” For low volume disk production, 
XENO-DISK™ includes a track-by-track disk duplicator (which is 
faster than file by file duplication). Gives you the option to input 
disk format parameters which allows you to utilize uncommon 
disk formats. XENO-DISK™ includes a back-up disk and one free 


update. ? 
80Mate™ 


A CP/M® 80 emulator for MS-DOS® computers. After programs 
have been transferred onto PC/MS DOS® disks with XENO-COPY 
PLUS™, XENO-DISK™, or APPLE TURNOVER™, 80Mate™ lets you 
simulate most CP/M® 80 systems on your MS-DOS® computer. 
Includes all internal CP/M® commands and many available 
functions. 30Mate™ includes a terminal emulator for 7 predefined 
terminals including APPLE CP/M®! You can also input parameters 
for other terminals that need to be emulated, without additional 
Apple hardware. 








 Innovat 





APPLE TURNOVER; XENO-COPY PLUS, XENO-DISK, 80Mate are registered trademarks of Vertex Systems, Incorporated. @ 

IBM PC & PC-DOS is a registered trademark of International Business Machines Corporation. @ APPLEisa registered 

trademark of Apple Computers Inc. @ MS-DOS is a registered trademark of Microsoft Corporation. @ CP/Mis a registered 
trademark of Digital Research Incorporated. 
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The function of the constant, of course, is to supply a com- | exec tt pr ence 
LOG’s syntax is protean: it can be w atever you \ wis| 


fortably large set of atomic symbols that need no further 
interpretation so we can write interesting facts in human- 
readable form. That different systems have different rules 
for forming constants is a major irritation (see the sidebar 
“Prolog Syntax’’). 

The variable is a syntactic place-holder; it means ‘“‘what- 
ever matches to this position.” In these hypothetical exam- 
ples, I’m italicizing variables, but we obviously cannot do 
that with real Prologs. The syntactic space of word-like ob- 
jects must be divided between constants and variables. Be- 
cause different implementors draw the line in different ways, 
a variable in one system may be a constant in another. 


List Notation 

Most Prologs support the list data structure of Lisp (indeed, 
most Prologs are essentially special bodies on a Lisp chassis). 
However, a Prolog system does not construct lists; it de- 
scribes them, and the syntax for describing a list is central to 
most Prolog applications. 

A list is described in full by a list of items in brackets, so 
that [ak q[ 8] 10 ] isa list of five items (three constants, a 
list, and a number), while [ ] is the empty list. (Most Prologs 
use special brackets like these. One of Micro-PROLOG’s less 
endearing features is that it uses ordinary parentheses. ) 

Often it is convenient to describe only the head of a list. 
referring to the remainder of the list with a variable. This is 
done with a Jist pattern that employs the /ist constructor 
symbol, usually the stile (|). Thus, the pattern [ 6letc ] is a 
description of all lists having the number 6 as their first item. 
The pattern describes the first item exactly but says nothing 
about the remainder of the list except that the variable etc 
stands for it. 

Now, mark two crucial rules. First, the tail of a list is a 
list. Thus, when the pattern [61 etc ] is matched to the list [6 
5 4], etc stands for [5 4], a list. Should it be matched to [6 5], 
etc would stand for [5]—the list [5], not the number S. 

Second, the empty list is the tail of all lists. This rule 
supplies a tail for lists that have but one visible element, 
enabling the matching of list patterns to be more consistent. 
Thus, the pattern [6 | etc ] describes the one-item list [6], 
with etc standing for [ ], the empty list that is the tail of all 
lists, even short ones. 

From these rules come certain common effects. First, the 
empty-list pattern, [ ], matches only the empty list; no other 
pattern does this. It is really the only special case among lists. 

Second, the pattern [ head | tail | matches any nonempty 
list. A list pattern with a single variable preceding the list 
constructor matches any list that contains at least one item. 

In fact, the pattern [ a k next! etc ] matches any list that 
contains at least three items, the first two being the constants 
a and k and the third being unspecified. The variable etc is 
identified with whatever items follow those three items (or 
with the empty list if there are no more). 


Recursive Descriptions 

How many items does a list contain? Let’s describe the solu- 
tions to that problem in an example of real Prolog program- 
ming. We could enumerate all possible solutions: 
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disguise it as. The friendliest of the distributed front ends is" 
called SIMPLE; its form of clauses and tules is much like the 
presentation syntax used in this article. 


Prolog in Parallel 


There is an implicit or between the. sentences that define a 
relation. Take the ee earg relation: | 
card(a). 
card(k). 
card(q). 
card(j). 
card(x ) if 
integer(x ) and 
less(1, x ) and 
less( x, 11). 


Together these sentences say that a card is this or this or... 
this. The Prolog implementation must search through the 
statements to answer a question about a card, but (in princi- 


ple) the order in which it tests them doesn’t matter. If hard- 


ware is available to make concurrent tests of all five sen- 
tences in parallel, fine. Such parallelism is called 
Or-parallelism because of the implicit or between sentences. 

Notice, too, in the last sentence, that there is (in principle) 
no preferred order for testing the three subordinate assertions. 
Proposed Prolog systems would evaluate all three assertions 
concurrently. This parallelism is called And-parallelism be- 
cause of the and relation between the clauses of a conjunction. 
Either kind of parallelism (properly called concurrency) or 
both could be used to speed Prolog execution. The Japanese - 
“Fifth Generation” project proposes to explore such nen 
parallel architectures for Prolog-like languages. 

Notice, however, the careful use of a principle” in he : 


| preceding paragraphs. We can express many algorithms, 


like the card relation and most of the other examples in this 
article, as sets of pure, achronic, descriptive sentences. Such 
descriptions executed on concurrent hardware would pro- 
duce the same results as those produced under a single- 
thread interpreter. But it is not always easy to see the time- 
free, descriptive solution to a problem (especially when your 
mind is thoroughly steeped in the if-then patterns of proce- 
dural notations); sometimes there is no solution. 

For instance, no nondeterministic description exists of a 


_ program that prompts its user and then takes input from the 
keyboard. There is some time tl when no prompt is visible, 
some time t2 when a prompt is visible but no Tesponse has 


been typed, and some time t3 when the response is com- 
plete—these three times are not the same. Such a program 
must recognize the flow of time. Otherwise, it theoretically 
could read nonexistent input and prompt afterward. 

As noted in the main article, similar time dependencies 
arise when programs assert and retract facts dynamically. 
To make such programs work, the available Prolog inter- 
preters promise to evaluate the clauses of a Phone in 
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length( [ ] 0 ). 
length( [x ] 1 ). 
length( [xy ]2). 


That, however, gets tedious very quickly. A general ap- 
proach to problem descriptions of this sort is to enumerate 
only the limiting case(s) then to describe the general case 
recursively. If we apply that approach to this problem, we 
soon arrive at: 


length([ ] 0). 

length([Alt]/ ) if 
length(t k ) and 
succ(k / ). 


In English this says: “The length of the empty list is zero, 
while the length of a nonempty list is one more than the 
length of its tail.” 

Please examine the two Prolog sentences that define the 
length relation. Do you understand them? Can you see how 
they are sufficient to permit the dialogue 


length([{a k q] /en )? 
yes, len = 3. 


to take place? 

If they seem utterly opaque, that might be for either of 
two reasons. You may not be familiar with the use of recur- 
sion to solve problems. If you are baffled by the idea of 
describing length in terms of length, turn to the sidebar “The 
Recursive Method” (at right). It covers a general approach 
to recursion and may get you over the initial hump. 

If you are comfortable with the idea of recursion but can’t 
see how a Prolog implementation might handle the given 
sentences, turn to the sidebar “Executing a Query” on page 
54. Watching the Prolog system work its way to the root of a 
query may clarify these issues. 


List Operations 

Let’s do one more fundamental list operation, the member 
relation. This is the relation that is true (verifiable) if a par- 
ticular item is a member of a given list. We wish to be able to 
ask such questions as: 


member(j [k j 9 3 2])? 
yes. 

member(a [k j 9 3 2])? 
not so far as I know. 


The recursive method works well here. Because Prolog 
makes the head item of a list immediately visible, one limit- 
ing case is that in which the desired item is visibly the head of 
the list: 


member(item [item| etc }). 


We may read this as: “Some item item is a member of any 
list that begins with item.” 


[This use of variables troubled me at first. It seemed too 
casy! I wanted to write something like 
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opinion, there should be a Prolog equivalent of | 
then operator to make time dependencies within 
tion explicit. _ 

Other cases—too élaborite to go into here— ne it i 


essential to test the sentences of a relation in a particular — 


order. Present interpreters number the sentences of a rela- 
tion in the sequence they are entered and promise to evaluate 
them in that sequence. Programmers writing code that relies 
on that promise are operating sometimes from necessity but 
more often from procedural habit. Such code will not exe- 
cute reliably on Or-parallel hardware. — 


The Recursive Method 


There are two ways to completely express a lengthy process 
in short terms: iteration and recursion. Iteration—the for, 
while, and until loops and other variations on the theme of 
“go back and do it again” —is a customary part of any proce- 
dural language. Thus, 


fori:= 1 to10do 
sum :-= sum — ali/; 


is a short but complete summary of a 10-step process of sum- 
mation. We may summarize the iterative design approach as: 
(1) decide how to solve the problem for one item and Q 
decide how to repeat that solution for all the other items. 

Prolog supports no iteration. Fortunately, many problems 
will yield to a recursive approach. We may summarize the 
recursive design approach this way: (1) enumerate the sim-_ 
ple cases for which a solution is immediately known; (2) 
specify how to reduce a complicated case to one that is 
slightly simpler; (3) specify a general solution in the terms” 

“if I knew the answer to the next-simpler case, the answer to 

this case would be... .” | 

Because step (2) ope the means to generate the next- 
simpler case, and because repeated application of step (2) 
must eventually produce a case for which step (1) has defined 
an answer, we may write the general solution as “return the 
result of (some small function) on the result returned by ap- 
plying this general solution to the next-simpler case.” 

Raising a number to an integral power is an example of a 
problem that we can handle this way. We want to describe 
the solutions to 


power(x 2) 
such that z is the result of raising x to the pth power. 

Step (1): a simple case for which we know the solution 
immediately is 

power(x 0 1). 
or anything raised to the zeroeth power is 1. The complicated 


cases comprise all those with p greater than zero. (Actually, 
we know that power(x | x ), but it turns out we Son t need 


the knowledge. ) 
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simple case of p =0, which it must ultimately reach. But 
query it with a fractional p, and it will skip right past p = =0 
and continue on toward the horizon—as it will if it is queried 
Be Bay, P less soe zero. To play it safe, the clauses - 


: eet ) and 
ee P ” oe 








_ power | i x x). 











prod(xbyg xbygq xevn 0) and 
. Sperege Fz). 


. main. erence) is that it uses a faster way to march the 
; toward the simple case, dividing it by two rather 


“way to handle a conditional operation in Prolog without rely- 
| ing: on statement sequence. 

Recursive solutions most often are eae to describe lists 
6 any length. The limiting cases typically involve the empty 
list or the list of one item. The method of moving the general 
case toward the simple case is to shorten a list by dropping its 
head. | 
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: each evaluation will edn Pp by one step ue the 


ng it by one. This formulation also illustrates one 


member(item [x|etc |) if 
equal(item x ). 


to make the comparison explicit. But that impulse is a hang- 
over from the habits of procedural languages, where com- 


| parison is an “operation” to be “executed” upon “data.” In 


Prolog, we don’t write a test for equality; we write a descrip- 


| tion of equality. The variable-binding rules of Prolog inter- 


preters are so implemented that the more succinct statement 
works. Consider matching query member(fred [mack 
pete])? versus the sentence member(item [item | etc ]). The 
matching process begins with the binding of the constant 
“fred” to the variable item. Instantly, the remainder of the 
question becomes: 


...[mack pete])? 
...[fred | etc ]). 


This soon will result in detection of a mismatch. | 

We now have established the limiting case. In the general 
case—when the desired item isn’t visible as the head item— 
we must hope that it appears somewhere in the tail of the list. 
If it does, it must be the head of some portion of the tail. So 
we drop the present head and try again: 


member(item [head | rest ]) if 
member(item rest ). 


This passes the termination test: each application of the gen- 
eral rule talks about a shorter list. The process sooner or 


| later must either bring about the limiting case or else pose a 


query, member(item [ ]), that will match nothing and cause 
the whole query to fail. 

This formulation of the membership problem will work, 
but it is not perfect Prolog. The two sentences aren’t inde- 
pendent; certain queries will match both of them. I have 
followed up the implications of that in the sidebar “Cutting 
and Failing” on page 58. 


Having It Both Ways 
Conventional (procedural) programs are time-bound and lin- 
ear, so they can flow in one direction only. Long use of proce- 


| dural languages makes this seem a natural and inevitable part 


of programming, but it is neither. We’ve already noted how, 
when arithmetic is implemented in a descriptive way, a single 
relation SUM supplies both addition and subtraction. When 
we based a successor relation on it, the identical relation 
served to describe the predecessor relation as well—the prede- 
cessor being simply the successor “‘in reverse.” 

This ability to work Prolog relations backward seems 
strange and upsetting at first. It takes a conscious effort to 
recall that a reverse use is even possible and to check for it. 
For example, a programmer who is oriented toward proce- 
dural languages inevitably will identify the member relation 
with a Pascal or C function that searches for one item in a 
list. Such a function can be used in those languages only for 
that purpose, but this is not so of the member relation in 
Prolog. Sure, Prolog will test to see if a member exists in a 
list, but it is also perfectly happy reporting what members do 
exist in a list: 
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member(x [fred bob sam])? 
yes, x = fred. 
yes, x = bob. 
yes, X = sam. 


Furthermore, Prolog can be made to generate an infinite 
number of lists that contain a given item. The query mem- 
ber(x what )? or “What’s a list containing something?” 
leads to an infinite recursion producing successive answers: 


yes, what = [xletc ]. 
yes, what = [head x|letc ]. 
yes, what = [head head x \etc ]. 


Not a useful result, but a strange and beautiful one. 


Showing Off 
We could use any number of enjoyable list problems for 
further practice: reversing them, extracting the first or last n 
items, catenating them (an especially interesting Prolog al- 
gorithm that can be worked backwards in several useful 
ways). But space is limited, so let’s glance instead first at 
programs for sets and trees and finally at a sort. 

A set is a list that contains no duplicates. Let’s first define 
a relation undup(in out ) such that out is the list in with its 
duplicate items removed: 


undup([ ][ ] ). 


i.e. the empty list has no duplicates; 


undup([h|t ] [A| tnew ]) if 
remove(h t tlessh ) and 
undup(tlessh tnew ). 


i.e. other lists are undup’d by removing all instances of the 
head from the tail then undup-ing the tail. 

Of course, we now require a definition of the relation re- 
move(x in out ) such that out is the list in with all occur- 
rences of item x removed: 


remove(x [ ][ ]). 
i.e. removing x from the empty list yields the empty list; 


remove(x [x|t ] tnew ) if 
remove(x t tnew ). 





i.e. removing x from a list headed by x produces the tail of | 
that list with x’s removed: 


remove(x [h|t ] [hl tnew ]) if 
not-same(x h ) and 
remove(x t tnew ). 


i.e. removing x from a list headed by something else (A ) pro- 
duces a list still headed by A but with x’s removed from its tail. 

Naturally, it’s easiest to build a set from scratch, simply 
banning all duplicate additions to it. Let’s define the relation 
addset(x in out ) such that out is the set in with item x added: 
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addset(x [ ] [x ]). 


i.e. adding x to the empty set produces the set composed of 
xX, 


addset(x [x!t][xI!t ]). 


i.e. adding x to the set already headed by x produces no 
change; 


addset(x [Alt ] [h|tandx }) if 
not-same(x hf ) and 
addset(x t tandx ). 


i.e. adding x to a set not headed by x is done by adding x to 
the tail of the set. 

The clause not-same(a 6 ), used in addset and remove, is 
one that the underlying system should define. It is extremely 
difficult to describe the not-equal relation in Prolog. 

_ We can implement—or describe—binary trees in terms of 
nested lists. In fact, their Prolog description is simply a re- 
phrasing of the theoretical definition of a binary tree. Let’s 
say that an empty list represents the empty tree, while a 
three-item list [ /sub item rsub | represents the nonempty 
tree. item is the value at the root of the tree, and /sub and 
rsub are the left and right subtrees. Now we can define the 
relation addtree(x in out ) such that out is the binary tree in 
with item x added to it: 


addtree(x [ ][[ ] x[ ]]). 
i.e. adding x to an empty tree produces the tree with value x 
and empty subtrees; 


addtree(x [/ xr ][/xr]). 
i.e. x is already in the tree that has it as a value: 


addtree(x [/ vr ] [/new vr ]) if 
less(x v ) and 
addtree(x / /new ). 


i.e. X goes into the left subtree of a tree that has a greater 
value; 


addtree(x [/ vr ] [/ v rnew ]}) if 
less(v x ) and 
addtree(x r rnew ). 


i.e. X goes in the right subtree of one with a lesser value. 
Lovely, isn’t it? No doubt you can already visualize the Pro- 
log description of a tree search, the relation intree(x tree ) 
that is true if x appears at some level of tree. 

Let us return to the domain of lists and sets long enough to 
describe the QuickSort algorithm: the relation qsort(in out ) 
such that out is the list in with its items in sorted order. First, 
we enumerate enough of the limiting cases to cut the recur- 
sion off at the two-item list: 


qsort([ | [ ]). 
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| (2) length([q j] tlen . a 










y eh ae 
ated” ( pele to say Sho | a") a as he e 
stants, but the process is simply copying w 
the ee oes copies out the matched 5 tule, | 









length({ ] 0) 


They don’t match; the mismatch comes ju 


a qj] what , 
length([head|tail ] len)... 


This succeeds. A new copy of the rule is made with the fol- 
lowing substitutions: 


a for head 
[qj] for tail 
what for len 





The copied con junction, with substituted valu 
variables, reads: _ 








-sum(tlen > | what . 


The subscript in ‘len. 2 indicates that the variable tlen is. 
unique and local to this query. ae _ 

The first clause of the new query metohes he oe sen- 
tence in the data base, with the oe bindings: . 





q for head 
[j] for tail 
ileny for len 





The conjunction is ohpied: out once more, with cubstitnticn. : 
to produce yet another nested query: 


(3) length([j] t/en 3) and 
sum(tlen 31 tlen ee | 


Its first clause again sh iches the seein sentence, ‘this ine 
binding the following: | 


j for head 
[ ] for tail 
tlen; for len 


Its conjunction is copied out; after substitution, it yields: 


(4) length({ ] ¢/en 4) and 
sum(tlen 4 1 tlen 3)? 


Dr. Dobb's Journal, March 1985 


Add EDITING 
to your 
Software 

with 

CSE Run-Time’ 


Your program can include all or a portion 
of the C Screen Editor (CSE). 


CSE includes all of the basics of full 


screen editing plus source in C for only 
$75. For only $100 more get CSE Run- 




















Program Editing 
Breakthrough! 


Save time. Stop worrying. 


Use BRIEF: The most powerful UNDO in the industry lets you recover from 
any mistake. The most powerful editor combines just about every feature you 
have ever seen in a coherent, logical, practical set of commands. And the macro 
programming language can be used to change just about anything — to suit 
your style or background. 











Try BRIEF — at no risk. With windows, UNDO of all operations, multifile editing 
and more, you could save time every day. 
















@ Full UNDO (N Times) @ Windows (Tiled and ‘Pop Up’’) 
Time to cover the first 50 copies that you @ Edit Multiple Large Files Unlimited File Size 
distribute. @ True Automatic Indent for C @ Reconfigurable Keyboard 
Use capabilities like Full cursor control, i rehieh Pia a aiocs mpl a ; 

: ses Nal earch for “regular expressions” 
block move, insert, search /replace of @ Intuitive Commands @ Mnemonic Key Assignments 
others. Portability is high for OSes, ter- @ Tutorial ® Horizontal Scrolling 
minals, and source code. ®@ Keystroke Macros @ Comprehensive Error Recovery 


PLUS a Complete, Powerful, Readable, Compiled MACRO Language 
Availability: PCDOS-compatible systems. Price: Only $195. 
Win $1,000 and recognition for the Outstanding 


> @ 
Practical BRIEF Macro. Other awards to be given. Sony : t 
ih Baie Use the Demo... . or the full product oy Oo U lion 
ystems’ 


for 30 days. Callor write us... 800-821 -2492 <= 
Solution Systems 1s a trademark of Solution Systems, 335-D Washington St., Norwell, MA 02061 61 7-659-1 571 


Call for the ‘‘CSE Technical Description 
and for licensing terms and restrictions. 


Full Refund if » ° 

not satisfied in c>dlution 

first 30 days. ystems 

Call 800-821-2492 335-D Washington Street 
Norwell, MA 02061 


617-659-1571 













BRIEF is a trademark of UnderWare. 










Circle no. 75 on reader service card. Circle no. 93 on reader service card. 


™ 
fa 
Become Familiar in One Evening 
Thorough tutorials are designed to help learn the PROLOG 
language quickly. The interactive PROLOG-86 Interpreter gives 
immediate feedback. In a few hours you will begin to feel comfort- 


able with it. In a few days you are likely to know enough to modify 
some of the more sophisticated sample programs. 


Sample Programs are Included like: 


@ an EXPERT SYSTEM 


@ a NATURAL LANGUAGE INTERFACE 
(it generates a dBASE II “DISPLAY” command) 


B a GAME (it takes less than 1 page of PROLOG-86) 
PROTOTYPE Ideas and Applications QUICKLY 


1 or 2 pages of PROLOG is often equivalent to 10 or 15 pages in 
“C” or PASCAL. It is a different way of thinking. 


Describe the FACTS and RULES without concern for what the 
computer will have to do. Maybe you will rewrite in another 
programming language when you are done. 

Programming Experience is not required but a logical mind is: 
PROLOG-86 supports the de facto STANDARD established in 
“Programming in Prolog.” 


CONTEST: win $1,000. Ask about it. Deadline of 4/30/85. 


AVAILABILITY: pPRoLOG-86 runs on MSDOS, PCDOS or 
CPM-86 machines. We provide most formats. The price of 


anipulat 
and me UNIX-li 


DIFF and CMP 

XREF —cross re function and line. 
C Flow Chart— ‘call each other. 
C Beautifier — make source more regular and readable. 
GREP — search for sophisticated patterns in text. 
There are several other utilities that help with converting 
from one C compiler to another and with printing 
programs. 

C Helper is written in portable C and includes both full 
source code and executable files 


for $135 for MS-DOS, CPM-80 Solution 





























CPM-86. Use VISA PROLOG-86 is only $125. > 
or -00. USE ’ ™ : 4 
Master Card or COD. < ystems : =olution 
Call: 800-821-2492 335-D Washington Street Full Refund if not < LS 
Norwell, MA 02061 satisfied during 335-D Washington Street 
617-659-1571 first 30 days. Norwell, MA 02061 





800-821-2492 617-659-1571 





Circle no. 94 on reader service card. 


Circle no. 95 on reader service card. 





i.e. the empty list is sorted; 
qsort([x ] [x ]). 
i.e. the one-item list is sorted; 
qsort([az ][az ]) if 
leq(a z ). 


qsort([a z ] [za ]) if 
less(z a ). 


i.e. two-item lists are sorted by exchanging their items (we _. _ 
assume that the leq( ) and less( ) clauses are system | | -. 
Assume that sum is a built-in relation; th 


defined). 

Now we can describe the general solution of QuickSort: 
the items of the input list are partitioned into two lists, which 
are sorted separately: 


qsort([a bclt } out ) if 
part([abclt]/r)and 
qsort(/ s/ ) and 
qsort(r sr ) and 
catenate(s/ sr out ). 


Assuming that the catenate relation already has been de- 
scribed, we need only to define the partitioning scheme, 
part(in/r ), such that / and rare lists containing all the items 


of in between them with every item in / being less than any |__,. 


item in r. 
I’ve worked out two ways to describe the part relation. The 
first makes two passes over the data: 


part(in/ r ) if 
pivot(in p ) and 
partle(in p/ ) and 
partge(in pr ). 


Leaving aside the pivot relation, which describes pasa 
pivot value based on list in, we need definitions of partle and 
partge. The partle relation selects those elements of in that 
are less than or equal to p: 


partle([ ] p[ ]). 
partle([hlt] p[hAlz ])if 
leq(h p ) and 
partle(t pz ). 
partle({[hlt ] pz ) if 
less(p h ) and 
partle(t pz ). 


The partge relation is similar but, of course, selects only 
items that are greater than p. 

It seemed somewhat inefficient to pass twice over the input 
list when dividing it, so I worked out an alternate scheme: 


part(in/ r ) if 
pivot(in p ) and 
partem(p in/r ). 


partem(p[ ][ ][ ]). 
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o ~ length({ ] 0). 


interpreter considers its second clause, 


| Its evaluation rewrites all appearances of » W 
- Of qusty (i)fowreads = sits 






eae ] tlen a 





Asa result, the ariaok len 4 is she ind ‘0 th 
it is effectively rewritten to 0 wherever 
ing queries. Having verified the first ¢ 





.sum(0 1 ¢tlen3) : : 
son i adds the | 
known arguments and binds their sum to che unknown one, 
causing ¢/en 3 to be rewritten as 1 wherever it appears. Query 
(4) is now complete; the system may return to i estos 
of query (3). 


The second clause of query (3) now eas 


..sum(1 | tlen 2) | 


Mee that clause has been evaluated, references to en 2 will 
read 2. That completes processing of auery (3); the inter- : 
preter may return to query (2). | 
__ Its second clause now reads: — 





_. sum(2 | what ) 






length({a qj] 2 _ 


truthful, the austen can psi the 1 user 7 d may a 
display what = 3. That’s not essential; av 1p ee 
might require the user to request a — explicitly, us USI 












: Sule relation such as: 


length([a qj] what ) and 
display(what )? 
Had that been the case, yeriicatioe of the ne fst chase would 
have resulted in rewriting the query as: 


length([a q j] 3) and 
| _ display(3)? 


Notas special has to be done by the on display 


argument falls out naturally from the — rewriting of 
variables as they are bound. 

Thus, relatively simple matching and rewriting rules, ap- | 
plied recursively, produce effects all out of proportion — to 
their size. 


Cutting and Failing 


Let us consider taking our member relation, yen by the 
following sentences: 
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7408 .. .24 7486... .30 74166.1.00 | 4027-4KX1-250 ns. .......... 80 
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7430... .20 74123.. .40 74193. .80 | sogon-s (2107B-4 * TMS4060) = J. TL494........ 2 
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partem(p [Alt ][hAl/] 7) if 
leq(h p ) and 
partem(pt/r ). 

partem(p [Alt ]/[hlr ]) if 
less(p h ) and 
partem(pt/r ). 


Finally, we may define the pivot relation in a variety of : a 


ways. The simplest is to use the first item: pivot([h|1] A ). 


That causes poor performance, however, when the input is | 


already sorted. Because, by our definition of the general case 
of qsort, we need to describe a pivot only for lists of three or 
more elements, we get a better average partition with a pivot 
that is the mean of the first and third items: 


pivot([abclt]p) if 
SUM(acs ) and 
PROD(2 ps 0). 
I’ve tested these versions of QuickSort on Micro-PROLOG, 


speeds. 


Storing Data 
But, I hear you asking, how can we conduct a meaningful 


query? It may be amusing to have a dialogue like 


qsort([3 2 1] what )? 
yes, what = [1 2 3]. 


but this hardly amounts to useful data processing. Where do Ee 


we put stuff so we can work on it? 
That appears to be a natural question, but it reveals un- 
thinking prejudices. 


“with | oe ‘cage to j, head to j, and tail to [k]. ‘Which. fa 
a nce would Prolog choc, to use, , and what would happen 
although not on lists long enough to compare their relative a | | - 










7en? / 
_ The Prologs that run on sereondl computers practically 


| pune that the sentences of a relation will be tested in the 
order they were entered to the data base. a the limiting. case 
is entered first, as here, a wi che 
test of a sort if the only sample data is what we can type ina : } 






: of cases where ) 


Procedural languages enforce a radical distinction between | _ 


code and data. Data is static; it is stored in variables: it is - 
acted upon by code. Code is dynamic; it is expressed by state- | 


ments; it takes data as input and produces data as output. 


These notions are so engrained in the conventional program- ec 
ming languages that we aren’t even aware of them—until we | list Thi 


encounter a notation like Prolog, which denies them all! 
Prolog makes no difference between data and code; the 
distinction is simply not relevant. But, you ask, how do we 


store information? We do it by asserting the truth of that | y 
information. The asserted sentences become part of the data | 


base. Everything is sentences; we may think of any sentence 
as either code or data. Consider that the query 


qsort([3 2 1] what )? 
yes, what = [1 2 3]. 


could be answered equally well by our algorithmic qsort defi- 
nition or by a simple assertion of fact: qsort([3 2 1] [1 2 3]). 
In principle, there is no difference between the algorithmic 


qsort (code) and the qsort implemented by an infinite set of | 


facts (data). 

But practical problems arise from the mode of interactive 
use. How can we develop data during one query, yet have the 
same data available for another later query? Suppose, for 
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_tempt no alternative sentences for this felation! To use i ; 
our example, we would write the first sentence as 








it does match h the 





au 





e 


ee Se liter | tail ) if 
cut( ). 


(The clause cut( ) is written as (/) in Micro-PROLOG 
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/ Every 1982 Issue Available me) g Your Personal Reference. 


_ Vol. 7 1982 © 


_ In 1982 we introduced several significa pieces ei software, gee the RED text CORO! and the Runic _— 


Vol. 1 1976 


The material brought together in this volume chronicles the development in 
1976 of Tiny BASIC as an alternative to the “finger blistering,” front-panel, 
machine-language programming which was then the only way to do things. 
This is always pertinent for bit crunching and byte saving, language design 
theory, home-brew computer construction and the technical history of 
personal computing. 

Topics include: Tiny BASIC, the (very) first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer Routines, Building an IMSAI, and more. 


Vol. 2 1977 


1977 found DD4J still on the forefront. These issues offer refinements of Tiny 
BASIC, plus then state-of-the-art utilities, the advent of PILOT for microcompu- 
ters and a great deal of material centering around the Intel 8080, including a 
complete operating system. Products just becoming available for reviews 
were the H-8, KIM-1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermore Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Interaction, I/O, Tiny Pilot & Turtle Graphics, 
many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered its adolescence in 1978. This volume 
brings together the issues which began dealing with the 6502, with mass- 
market machines and languages to match. The authors began speaking more 
in terms of technique, rather than of specific implementations; because of this, 
they were able to continue laying the groundwork industry would follow. 
These articles relate very closely to what is generally available today. 
Languages covered in depth were SAM76, Pilot, Pascal, and Lisp, in addition to 
RAM Testers, S-100 Bus Standard Proposal, Disassemblers, Editors, and much, 
much more. 





Vol. 4 1979 


This volume heralds a wider interest in telecommunications, in algorithms, 
and in faster, more powerful utilities and languages. Innovation is still present 
in every page, and more attention is paid to the best ways to use the proces- 
sors which have proven longevity—primarily the 8080/Z80, 6502, and 6800. 
The subject matter is invaluable both as a learning tool and as a frequent 
source of reference. 

Main subjects include: Programming Problems/Solutions, Pascal, Information 
Network Proposal, Floating Point Arithmetic, 8-bit to 16-bit Conversion, 
Pseudo-random Sequences, and Interfacing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 1980 in one volume! Systems software 
reached a new level with the advent of CP/M, chronicled herein by Gary 
Kildall and others (DDJ’s all-CP/M issue sold out within weeks of publication). 
Software portability became a topic of greater import, and DDJ published Ron 
Cain’s immediately famous Small-C compiler—reprinted here in full! 
Contents include: The Evolution of CP/M, a CP/M-Flavored C Inerpreter, Ron 
Cain’s C Compiler for the 8080, Further with Tiny BASIC, a Syntax-Oriented 
Compiler Writing Language, CP/M to UCSD Pascal File Conversion, Run-time 
Library for the Small-C Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue (now sold out), along with continuing cover- 
age of CP/M, small-C, telecommunications, and new languages. Dave Cortesi 
opened “Dr. Dobb’s Clinic” in 1981, beginning one of the magazine's most 
popular features. 

Highlights: information on PCNET, the Conference Tree, and The Electric Phone 
Book, writing your own compiler, a systems programming language, and Tiny 
BASIC for the 6809. 
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instance, that we want to test our addset relation, retaining ine 


its output to use as input to the next test. 
We start by asserting that one particular set—which we 
name with an unusual constant—exists and is null: 


Ped Ne Wet |: ||), 
We can query it just like any other relation: 


“The Set”(what )? 
yes, what = [ ]. 


More importantly, however, we can query it as part of a test : 
program, test-add(x ), that describes the effect of testing | 


addset with item x: 


test-add(x ) if 
The Set’’(in ) and 
addset(x in out ) and 
display(out ) and 
retract({‘“‘The Set” in ]) and 
assert([“‘The Set” out ]). 


With this program, we begin using Prolog syntax in a lin- 
ear, time-bound way. The display, retract, and assert relations 
all are system-defined. Each has a trivial descriptive sense and 
an important side effect on the Prolog environment. 

Descriptively, the display(x ) relation is simply true for 


ed in any conjunction. Its side effect is to display x at the 
console (the relation is called PP in Micro-PROLOG). 

The relation retract(/ist ) is true when /ist describes a sen- 
tence presently in the Prolog data base. Its side effect is to 
delete that sentence. 

The relation assert(/ist ) is true when /ist describes a valid 
Prolog sentence. Its side effect is to assert that new sentence, 
making it part of the data base. The format for describing a 
sentence as a list is system-dependent. 

Thus, the sense of the test-add relation is: get the current 
value of “The Set’; add item x to it and display the result: 
replace the definition of ‘The Set” with the augmented set. 
It permits dialogues like this: 


test-add(5)? 
[5] 


yes. 
test-add( fred)? 

[5 fred] 

yes. 

“The Set”’( what )? 
yes, what = [5 fred]. 


A test-add query is clearly time dependent. It makes no sense 
unless the retraction is done after addset and before assert. 
This is not elegant. 
This is, in fact, an indefensible kludge, so I won’t try to 
defend it. It is how the concept of the global variable is intro- 


duced into Prolog—and how we can simulate almost any sort | 


of data storage mechanism. For example, extending the 


he cemaved fon, considerati 1 





cute tests of both sentences of 











matched. Only if the first sent ce failed to match could the 


second be applied. _ | 

This interpretation of cut, oe course, assumes that che in- 
terpreter processes sentences ‘sequentially i in the order they 
are asserted. If it does not, it mig 


ht attempt the second sen- 





_ tence before the first one, and. > cut to the first accom- 
ge nothing. | 








tia! the sidebar “Prolog ae, ie”) 1 The a can exe- 








and it will find that both match the query. Now what? Well, 
the machine might favor facts over rules, which would make 
it select the right path. Or it might keep an entry sequence 
number with each sentence and favor the one with the lower 


Sequence number. Or it might simply follow up both paths in 
parallel. In the last case, the first sentence, being a fact, will 
_ terminate quickly with success, while the second will end in 
failure one nesting level later. 


In an And-parallel machine, the effect of the cut relation 
is nondeterministic. One can imagine some kind of hardware 


feature in which execution of cut commits intersentence 
-fratricide, the cutting sentence aborting parallel execution of 
ee other sentence from the same relation, but ieee that be 
any item x. Therefore, “‘display(item ) and...” may be insert- A 
ae hee gone, executing a different sentence ue the rela- 
tion, before the one execution unit re 
programmers using cut to avoid accidental, multiple uses of 
a file-read or some other do-once clause—as is recommend- 
ed in Prolog tutorials—should reflect that this program is 
not suitable for And- -parallel execution. : 
When you are designing Prolog solutions, i is always best: 

to describe a relation in sentences that are independent of 





each other in all cases, without regard to execution ‘sequence. 
| We could accomplish aoe in our example using a not-same 
| relation: , 


member(item litem | tail ). 
member(item [head |tail dD if 
_ not-same(item head ) al . 


_ : eG tail ). 






: hese sentences are ee lad eioecenl. the solution 
as no dependency on either order of execution or degree of 
- parallelism. | 


The “fail” relation has the descriptive meaning “false— 


this sentence does not match.” It has some uses, but it is hard 
_to find examples that do not rely on order of execution. 


One possible use of fail is to implement a not-same 
relation: 


not-same(item item ) if 
cut( ) and fail( ). 
not-same(x y ). 


method of test-add to make a test bed for binary tree algo- a 
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= soon as the” first was 


e e member relation at once, 


t reached the cut-clause. So_ 


“zy 





ptr no aoe — of not-same; the f Me suatd 
res that the query fails—the same items are not not- 
‘same. A query of not-same with arguments that are not the | 


‘same will not match to the first sentence, so the interpreter 


will test it (successfully) against the second one. That sen- 
tence is a fact, so not-same is verified. 
As with most definitions that use cut( ), this is utterly 


without meaning unless the order of evaluation of sentences. 





iS certain; thus, it is unusable in an And-parallel machine. 


Airis (using a global “The Tree”) i is simple. More compli- 


cated schemes are also possible: we can use assert and retract 
to implement (not describe!) a sparse array. (The array is a 
relation with its elements stored as facts of the form array- 
(sub value ), meaning the array element at position sub has 
this value. ) 


The Meta-Variable 
Some Prologs permit a variable to appear in the position of 
the relation-name in a clause. This feature, the meta-vari- 
able, makes it possible to write Prolog algorithms about Pro- 
log. 

As an example of how we might use the meta-variable, 
consider the “over” notation of APL. In that language, a 
function may be applied “‘over” an array. For instance, in 


+/31964 


the plus is the function being applied, and the slash means 
apply it “over” the following list of numbers. The effect of 
“over” is to insert the function symbol between every pair of 
numbers, so that the preceding line is equivalent to: 


34+14+9+6+4+4 


In short, ‘plus over” is equivalent to summation, “max over” 
to largest, and so on. 

We can write an “over” relation in Prolog if we use the 
meta-variable. The relation would be over(fun list out ) with 
out as the result of applying fun between every pair of items 
in Jist. A relation named fun must exist and have the form 
fun(abz ), meaning a fun b yields z. In addition, we need a 
sentence, identity(fun id ), such that id is the “identity ele- 
ment” of the function: the value is such that fun (aid a ). 

Here is a collection of sample functions: 


plus(a b z ) if 
SUM(a bz ). 
identity(plus 0). 
times(a bz ) if 
PROD(a bz 0). 
identity(times 1). 
max(aba ) if 
leq(b a ). 
max(abb )if 
less(a b ). 
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identity(max 9E99) 
And here is the definition of ‘“‘over”’: 


over(fun | | id ) if 
identity(fun id ). 


over(fun [alt | z ) if 
over(funt b ) and 
fun(abz ). 


This is quite faithful to the APL model, even executing right- 
to-left through the items and returning the identity element 
when applied to an empty array. 


Summary 
Prolog is a notation that allows us to express many algo- 
rithms in neat and elegant ways and that forces others into 
distorted shapes (as Bob Morein puts it, if it’s hard in For- 
tran, it’s easy in Prolog—and vice versa!). Nevertheless, it 1s 
educational to rewrite familiar algorithms in a new notation. 
But the greatest value of Prolog is that, in the process of 
understanding it, a programmer must alter and reexamine 
the fundamental assumptions of his or her craft. Prolog dem- 
onstrates that the distinction between code and data is artifi- 
cial and unnecessary, and it exposes the many assumptions 
we make about the flow of time. Prolog or a notation de- 
scended from it may or may not become important in the 
fifth and further generations of computing; it doesn’t matter. 
What matters is that, after learning it, you will think about 
programming in a whole new way. 
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Tax Advisor 
A Prolog Program 
Analyzing Income 

Tax Issues 


by Dean Schlobohm 


The winner of our Al programming con- 
fest is a program that knows how it 
knows what it knows, and why it wants 
to know what it doesn’t know. 
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A year ago, in March 1984, we celebrated DDJ’s new rela- 
tionship with M&T Publishing by announcing an artificial 
intelligence programming contest. We would award a $1000 
prize, we said, to the entry that best implemented artificial 
intelligence techniques in a practical application on a mi- 
crocomputer. We didn't say so, but we expected the ‘‘practi- 
cal” criterion to direct people toward the ‘applied’ end of 
Al work, and it did. Although we gave some guidelines 
(strive for memory efficiency, real-world usefulness, and 
advancing the state of the art), we left the judging criteria 
somewhat loose, in keeping with the nature of the definition 
of artificial intelligence. We didn’t pretend to know exactly 
what we were looking for, but we figured that we'd know it 
when we saw it. And we did. 

It could have been a can of worms. We didn’t specify 
processor, language, operating system, disk format. We 
didn’t even specify that it be for a disk-based machine! For 
all we knew, we might get a thousand different programs for 
a thousand different machines. 

We weren't too worried, though. The prize was not ex- 
travagant for the amount of work that was required, and we 
expected to receive a small number of entries. And we did. 
After preliminary culling, we found ourselves with only four 
entries. For four machines and four disk formats. From 
Mexico came Gerardo Cisneros’ program for solving certain 
kinds of algebraic problems that arise in quantum mechan- 
ics. We were awed by the idea of his crunching matrices of 
many-electron wavefunctions on a 56 TPA CP/M system. 
There was Richard Grigonis’s Prison Doctor, which took 
the overused Doctor model of Weizenbaum’s Eliza program 
and turned it into something ingenious and new. This was 
only the latest in a series of entries by Richard, one of our 
most creative contributors and the author of last year’s con- 
troversial “Sixth Generation Computers.” Stephan Heu- 
mann brought us Logicon, a Commodore 64 BASIC program 
that simplified Boolean expressions. Stephan’s program 
combined the formalisms of G. Spencer-Brown with some 
insights of his own and made clever use of color to discrimi- 
nate levels of analysis. Then there was Dean Schlobohm’s 
tax advisor program, a solid and impressive little expert 
system. I'd add, “just in time for doing your taxes,” but I 
doubt that many readers of DDJ are prepared to make use 
of this kind of legal tax advice. 

Judging was no trivial matter, even with so few entries. We 
enlisted the aid of referees and friends with the necessary 
machines and appropriate expertise. We ran every program 
past an Al expert who judged whether it embodied the tech- 
niques of Al, a programmer competent to evaluate the quali- 
ty of the code, someone conversant with the subject area of 
the program (logic and physics, anyway; we winged it a little 
regarding law and forensics), a tester who could evaluate 
whether and how well the program actually worked, and 
three editors. In the end, we chose a program that demon- 
strated clear understanding of what applied AI techniques 
are and how an AI program ought to behave. It also turned 
out to be a good introduction to programming in Prolog, and 
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Dean A. Schlobohm, MICRO-AI, P.O. Box 91, Rheem Val- 
ley, CA 94570. Copyright© 1984 Dean A. Schlobohm. 
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this issue consequently shaped itself into a Prolog issue. One 
criterion that emerged in the judging process was justifica- 
tion: an Al program ought to be able to tell you why it did 
what it did. The program we chose did that, too. 

We may yet print some of the runners-up. But this month 
we are pleased to present the winner of our AI programming 
contest, Dean Schlobohm’s Tax Advisor. —Ed. 


sists attorneys in analyzing the constructive ownership 

of stock rules set forth in Section 318(a).! Basically, 
Section 318(a) sets forth a number of rules under which a 
given person (e.g., an individual, trust, estate, partnership, or 
corporation) will be deemed to own stock that is actually, or 
constructively by the application of Section 318(a), owned 
by another person. For example, Section 318(a)(1) provides 
that an individual is considered to own the stock actually 
owned. by his or her spouse, children, grandchildren, and 
parents. Similarly, Section 318(a)(2)(A) provides that stock 
owned by a partnership is considered to be proportionally 
owned by its partners. ; 

Although the rules set forth in Section 318(a) involve little 
uncertainty, their application to a given factual situation is 
at times tedious. Furthermore, because stock that is deemed 
to be owned by a given person as a result of the application of 
Section 318(a) may, under certain conditions, be reattrib- 
uted to another person, the statute provides many opportuni- 
ties for the attorney to make a mistake in his or her analysis. 
As a result, I have developed two prototype computer pro- 
grams that perform the required legal analysis. 

The computer programs are written in the language Pro- 
log. Basically, Prolog permits rules of the form: 


T he prototype computer program TA (Tax Advisor) as- 


If: A is true; and 
B is true; and 
C is true. 

Then: D is true. 


to be represented as: 


D :- 
A,B,C. 


One version of TA consists of a set of Prolog rules that 
describe all of the legal rules of Section 318(a). For example, 
assume: (1) spouse(H,W) means that H is the spouse of W; 
(2) owns(I,N,C) means that I actually owns N shares of cor- 
poration C stock; and (3) num-con-own(H,N,C) means that 
H constructively owns, as a result of Section 318(a)(1 (A), 
N shares of corporation C stock. 

Then the rule of Section 318(a)(1)(A) that an individual is 
deemed to own the stock owned by his or her spouse may be 
expressed by the Prolog clause: 


num-con-own(H,N,C) :- 
spouse(H,W), 
owns(W,N,C). 


A second version of TA includes the facility to “explain” 
its reasoning. For example, the program will ask the user 
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only for the information that it needs to reach its conclusion. 
If the user is unsure why the computer asks a given question, 
he or she can ask the computer why the information is need- 
ed. The computer will then set forth an explanation of its 
reasoning in terms of the rules that it has used up to the point 
the question is asked. Moreover, the user can ask the com- 
puter for help in response to a given question. For example, if 
the user enters help in response to the question “Does the 
client have any children?” the program will explain that 
“children” includes legally adopted children. After the pro- 
gram has reached its conclusion, the user can ask the com- 
puter how the program reached its result. This explanation 
will consist of the set of rules and facts that the computer 
used in reaching its conclusion. 

Unlike other artificial intelligence programs in the legal 
area, the major goal of TA has been to develop a program 
that could be used by a practicing attorney with little or no 
knowledge of computers. Thus, a substantial amount of time 
has gone into designing an interface so that an attorney 
could use TA without understanding the computer language 
in which it is written. | 

Both programs currently run on a Compupro 816A micro- 
computer under the CP/M-863 operating system. Because 
the current version of the Prolog interpreter (Prolog-86*) in 
which the programs are written can access only 128K of 
RAM, the explanation features have only been included in a 
program that contains the family attribution rules of Section 
318(a)(1). The program without the explanation features, 
however, has correctly analyzed the examples set forth in 
Treasury Regulations §§1.318-2, 3, and 4. 


A Brief Review of Section 318(a) 


Basically, Section 318(a) sets forth rules under which cer- 
tain individuals and entities are considered to own corporate 
stock that is, in fact, actually owned by someone else. This is 
called “‘constructive ownership of stock” or “attribution of 
stock ownership.” Section 318(a) creates four types of rela- 
tionships that may create primary attribution of ownership. 
These four relationships are: 

(1) Attribution between members of a family; 

(2) Attribution from an entity (e.g., a partnership or corpo- 
ration) to person holding a beneficial interest in the entity 
(e.g., a partner or shareholder); 

(3) Attribution from a person (e.g., a partner or sharehold- 
er) to an entity (e.g., a partnership or corporation); 

(4) Attribution to owners of options to acquire stock. 

Each of these will now be discussed in order, followed by a 
discussion of reattribution. 


Attribution Between Family Members 
Section 318(a)(1) provides that an individual is considered 
as owning stock owned, directly or indirectly, by or for: 
(1) his or her spouse, other than a spouse who is legally 
separated from the individual under a decree of divorce or 
separate maintenance; 
(2) his or her children, grandchildren, and parents. For pur- 
poses of Section 318(a)(1), a legally adopted child of an 
individual is treated as a child of such individual. 

It should be noted that although a grandparent is deemed 
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to own stock owned by his or her grandchildren, a grandchild 
is not deemed to own stock owned by his or her grandparents. 
Furthermore, an individual is not deemed to own stock 
owned by his or her brothers, sisters, aunts, uncles, and other 
relatives. 

As an example of Section 318(a)(1), assume that H, an 
individual, his wife, W, his son, S, and his grandson (S’ son), 
G, each own 25 outstanding shares of Corporation X. Then 
H, W, and S are each considered as owning 100 shares, the 
25 shares they actually own and 75 shares from the other 
three individuals. G, however, is considered as owning only 
50 shares because the shares of his grandparents, H and W, 
are not attributed to him. | 


Attribution from an Entity to a Beneficiary 

of That Entity 

Attribution from Partnerships and Estates 

Section 318(a)(2)(A) provides that stock owned, directly or 
indirectly, by a partnership or an estate is considered to be 
owned proportionately by its partners or beneficiaries. 

For example, assume that A, an individual, owns a 50% 
interest in a partnership. Further, assume that this partner- 
ship owns 50 out of the 100 outstanding shares of Corpora- 
tion X, the remaining 50 shares being owned by A. Then A is 
considered to be the owner of 75 shares, the 50 shares he or 
she actually owns plus 50% of the shares owned by the 
partnership. 


Attribution from Trusts 

Except for “grantor” trusts and “pension” trusts, stock 
owned, directly or indirectly, by a trust is considered as 
owned by its beneficiaries in proportion to the actuarial in- 
terest of the beneficiaries in the trust. 

For example, assume that a testamentary trust owns 25 of 
the outstanding 100 shares of stock of Corporation X. Fur- 
ther, assume that A, an individual, holds a vested remainder 
in the trust having a value, computed actuarially, equal to 
4% of the value of the trust property. Then A is considered as 
constructively owning | share (4% of 25). 

In the case of a “grantor” trust (e.g., a revocable trust), 
stock owned, directly or indirectly, by the trust will be con- 
sidered as being owned by the person who is treated as the 
owner of the trust pursuant to Sections 671—677.5 


Attribution from Corporations 

Section 318(a)(2)(C) provides that if 50% or more in value 
of the stock of a corporation is owned, directly or indirectly, 
by a person, such person is considered as Owning the stock 
owned, directly or indirectly, by the corporation in that pro- 
portion which the value of the stock that such person so owns 
bears to the value of all of the stock of the corporation. 

For example, assume A and B, unrelated individuals, own 
70% and 30%, respectively, in the value of the stock of Cor- 
poration M. Assume further that Corporation M owns 50 of 
the 100 outstanding shares of stock of Corporation O, the 
remaining 50 shares being owned by A. Then A is considered 
as owning 85 shares, the 50 shares that he or she actually 
owns plus 70% of the 50 shares owned by Corporation M. 
Because B does not own 50% or more of Corporation M, he 
or she is deemed to own no shares in Corporation O. 
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Attribution to Entities 

Attribution to Partnerships and Estates 

Generally, Section 318(a)(3)(A) provides that stock owned 
by a partner or a beneficiary of an estate is considered as 
owned by the partnership or estate. It should be noted that 
all of the shares owned by a partner or a beneficiary of an 
estate are attributed to the partnership or estate, not just a 
partner’s or beneficiary’s pro rata share. 

For example, assume that A, an individual, has a 50% 
interest in a partnership. Further, assume that A owns 50 
shares of stock in Corporation X. Then the partnership is 
considered as owning the 50 shares of Corporation X stock 
owned by A. 


Attribution to Trusts 

Except in the case of “grantor’’ trusts and “‘pension”’ trusts, 
stock that is owned, directly or indirectly, by a beneficiary 
of a trust is considered as owned by the trust, unless the 
beneficiary’s interest is considered a “remote contingent in- 
terest.” A “contingent interest” of a beneficiary is-consid- 
ered “remote” if, under the maximum exercise of discretion 
by the trustee in favor of the beneficiary, the value of such 
interest, computed actuarially, is 5% or less of the value of 
the trust property. 

For example, assume that A, an individual, holds a vested 
remainder in a testamentary trust having a value, computed 
actuarially, of 4% of the value of the trust property. Further- 
more, assume that A owns 75 shares of stock in Corporation 
X. Then the testamentary trust is considered to own A’s 75 
shares of Corporation X because A’s interest is vested and 
not contingent. 

In the case of a “grantor” trust, all stock owned by the 
grantor is deemed to be owned by the trust. 


Attribution to Corporations 

If 50% or more in value of the stock in a corporation is 
owned, directly or indirectly, by any person, then the corpo- 
ration is deemed to own the stock owned by that person. 
Thus, as in the case of attribution from partners and benefi- 
ciaries to partnerships and estates, respectively, the corpora- 
tion is deemed to own all of the stock owned by the share- 
holder, not just a proportionate amount. 

For example, assume that A owns 70% of the value of 
Corporation M. Assume that Corporation M and A each 
own 50 of the 100 outstanding shares of stock of Corporation 
O. Then Corporation M is considered as owning 100 shares 
of Corporation O, the 50 shares that it actually owns and the 
50 shares that A owns. 


Attribution as a Result of Options 

Section 318(a)(4) provides that if any person has an option 
to acquire stock, such stock will be considered as owned by 
such person. For purposes of this Section, an option to ac- 
quire such an option and each one of a series of such options 
is considered as an option to acquire the stock. 

For example, assume that A and B, unrelated individuals, 
own all of the 100 outstanding shares of Corporation X, each 
owning 50 shares. Assume further that A has an option to 
acquire 25 of B’s shares and has an option to acquire a fur- 
ther option to acquire the remaining 25 of B’s shares. Then A 
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is considered as owning the 100 shares of stock of Corpora- 
tion X. 


Rules of Reattribution 

Section 318(a)(5) provides certain rules for “‘reattribution.”’ 
Except as provided below, any stock that is deemed to be 
owned by a person as a result of one of the four attribution 
rules set forth above is considered to be actually owned by 
such person for purposes of reapplying the above four attri- 
bution rules. : 

For example, if a trust owns 50% of the stock of Corpora- 
tion X, stock of Corporation Y owned by Corporation X is 
attributed to the trust and may then be further attributed to 
the beneficiaries of the trust. 

There are, however, two major exceptions to this rule. 
First, stock constructively owned by an individual as a result 
of the application of the family attribution rules of Section 
318(a)(1) is not treated as owned by such individual for the 
purpose of again applying the family application rules in 
order to make another individual the constructive owner of 
such stock. For example, assume H, an individual, owns 50 
shares of stock in Corporation X. Further, assume that H’s 
son, S, and daughter, D, each owns 50 shares in Corporation 
X. Then S is deemed to own only 100 shares in Corporation 
X, the 50 shares he actually owns plus the 50 shares actually 
owned by his father, H. He is not deemed to own the stock 
owned by his sister, D. 

There is a further exception to the exception for reattribu- 
tion of family ownership that permits reattribution, in effect, 
among family members. Section 318(a)(5)(D) provides 
that, when an individual is deemed to own stock by either 
applying the family attribution rules or the option rules, then 
he or she is considered to own the stock by reason of the 
option rules. In other words, the option rules take precedence 
over the family attribution rules. 

Finally, Section 318(a)(5)(C) provides that stock con- 
structively owned by a partnership, estate, trust, or corpora- 
tion by reason of the attribution rules set forth in Section 
318(a)(3) will not be considered as owned by the entity for 
purposes of applying the attribution rules set forth in Section 
318(a)(2) in order to make another the constructive owner 
of such stock. For example, if two unrelated individuals are 
beneficiaries of the same trust, stock owned by one of the 
beneficiaries that is attributed to the trust under Section 
318(a)(3) will not be reattributed from the trust to the other 
beneficiary. It should be noted, however, that stock construc- 
tively owned by reason of Section 318(a)(2) may be reattrib- 
uted under Section 318(a)(3). Thus, for example, if all of the 
stock of Corporations X and Y is owned by A, stock of Cor- 
poration Z held by Corporation X is attributed to Corpora- 
tion Y through A. 


The Section 318(a) Rules in Prolog 


This part of the paper will discuss the Prolog implementation 
of the rules set forth in Section 318(a) and the Treasury 
Regulations thereunder.® The complete listing of the pro- 
gram is contained in Listing One (page 75). In Listing Two 
(page 79), several of the examples set forth in the Treasury 
Regulations under Section 318(a) are solved using TA. 
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The Interface Program—section318 

The Prolog procedure section318 controls the general inter- 
action between the computer program and the user. After 
displaying an introductory message to the user, TA asks the 
user for the name of the client. This will be used throughout 
the program in communicating various information to, and 
asking various questions of, the user. For purposes of the 
remainder of this paper, the client’s name will be Client. 

TA then calls the procedure type(Client). This procedure 
simply asks whether Client is an individual, partnership, es- 
tate, trust, grantor trust, or corporation. Once the user has 
told the computer what type of entity Client is, type then 
adds this information to the computer’s data base. This in- 
formation is later used to restrict the amount of searching 
that the computer must do to reach its conclusion. For exam- 
ple, as discussed below, if Client is not an individual, the 
program will not ask for the family members of Client and 
will automatically set the number of shares attributed to 
Client as a result of the family attribution rules set forth in 
Section 318(a)(1) to zero. 

TA then asks the user for the name of the corporation 
whose stock may be attributed to Client under Section 
318(a). For purposes of the remainder of this paper, the 
corporation in question will be called Corp. 

After this is done, TA will attempt to find the number 
of shares of Corp stock that Client actually owns. The 
program does this by calling the procedure num_a_—own- 
(Client, Corp, N_actual). This procedure will be discussed 
below. 

After TA knows the number of shares of Corp stock that 
Client actually owns, it then calls the procedure 
num_con_own(Client, Corp, N_con), which determines the 
number (N_con) of shares of stock of Corp that the Client 
constructively owns as a result of the rules set forth in Sec- 
tion 318(a). This procedure is the major procedure of TA 
and will be discussed in detail below. 

Finally, section318 prints out the number of shares of 
Corp stock that Client actually and constructively, by appli- 
cation of Section 318(a), owns. After this is done, TA asks 
the user if he or she wants to run the program again for a new 
client. If the answer is yes, the program will start over. If the 
user answers no, the program returns the user to the Prolog 
interpreter and awaits new commands. 


The Prolog Procedure for Actual Ownership— 
num_a_own 

The Prolog procedure num_a_own determines the number 
of shares of Corp stock that Client actually owns. The proce- 
dure first knows that a client will not actually own any stock 
in himself. Thus, the first clause of the procedure is simply: 


num__a_own(Client, Client, 0) :- !. 


If the client is not identical to the corporation, 
num_a_own(Client, Corp, N—actual) then asks the user for 
the number of shares of stock that Client actually owns in 
Corp. The program expects the user to enter an integer, and 
if he or she does not do so, it prints an error message and 
again asks the user for the number of shares of stock that 
Client actually owns. 
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Once TA knows how many shares of stock the client actu- 
ally owns, it adds this fact to its data base.7 


The Prolog Procedure for the Constructive Owner- 
ship Rule Set Forth in Section 318(a)— 
num_con_own ! 
The procedure num_con_own(Client, Corp, Number) is de- 
fined as: 


num_con_own(Client, Corp, Number) :- 
num_family(Client, Corp, N1), 
num_from(Client, Corp, N2, zzzz), 
num_to(Client, Corp, N3), 
num_options(Client, Corp, N4), !, 
Number is N1 + N2 + N3 + N4. 


The procedure simply calls four other procedures, num- 
—family, num_from, num_to, and num_options. As dis- 
cussed below, these four procedures find the number of 
shares of stock that Client constructively owns in Corp by the 
application of the rules of Sections 318(a)(1), (2), (3), and 
(4), respectively. 

num_con_own then simply adds the number of shares 
that Client constructively owns as a result of each of the four 
constructive ownership rules to find the total number of 
shares that Client constructively owns in Corp as a result of 
Section 318(a).8 


The Rule of Section 31 8(a)(1 )/—num_family 

The procedure num_family(Client, Corp, Number, ZZZZ) de- 
termines the Number of shares that Client owns in Corp as a 
result of the family attribution rules set forth in Section 
318(a)(1). First, the procedure checks to determine whether 
Client is an individual. If Client is not an individual, the 
procedure quickly determines that the number of shares of 
stock that Client owns as a result of the family attribution 
rules is zero. In this regard, if the user has told TA that 
Client is a partnership, estate, trust, grantor trust, or corpo- 
ration, then the computer knows that the Client is not an 
individual. 

If Client is an individual, num_family then asks the user 
for the names of Client’s spouse, children, grandchildren, 
and parents. This is done by the procedure family_of(Client, 
List) where List is a list of all family members of Client. 

This procedure for determining the family members of 
Client is presently very crude. In particular, a more extensive 
program would contain the rule that a child includes a legal- 
ly adopted child of an individual. Furthermore, a more so- 
phisticated program would contain rules for determining the 
various family relationships between individuals. For exam- 
ple, it could contain rules such that if the program knew that 
John is the son of Dean then the computer could automati- 
cally infer that Dean is the parent of John. These rules have 
not been included in the present program due to memory 
constraints. 

Once TA has determined the family members of Client, it 
then calls the procedure family_own(Client, Corp, List, M, 
N). This procedure recursively goes down the List of family 
members and determines the number of shares of stock of 
Corp that each family member actually or constructively, as a 
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result of Section 318(a), owns. In determining the number of 
shares that a family member constructively owns, the pro- 
gram uses only the rules of Section 318(a)(2) and 318(a)(4). 
In other words, the computer knows that pursuant to Section 
318(a)(5)(B), stock constructively owned by an individual as 
a result of the family attribution rules may not be considered 
as actually owned by the individual for purposes of again ap- 
plying the family attribution rules. Furthermore, TA knows 
that the attribution rules of Section 318(a)(3) cannot apply, 
because those rules attribute stock ownership fo an entity 
such as an estate, trust, or corporation. As a result, fami- 
ly_own simply calls num_from (the Section 318(a)(2) rule) 
and num_options (the Section 318(a)(4) rule). 

Once TA determines the number of shares that each fam- 
ily member actually and constructively owns in Corp, num- 
_family returns the total number of such shares. 


The Rule of Section 318(a)(2)—num_from 

The Prolog procedure num_from(Client, Corp, Number, Old- 
Client) determines the Number of shares that Client owns of 
Corp as a result of the “from” attribution rules set forth in 
Section 318(a)(2). The procedure first calls entity_of. enti- 
ty_of determines the names of all partnerships, estates, 
trusts, grantor trusts, and corporations in which Client has 
an interest and which may actually or constructively own 
stock of Corp. For example, assume that John is the Client 
and Corporation X is the Corp. Then TA will ask questions 
such as: 


Is John a 50 percent or more shareholder in a corporation 
that owns, actually or constructively, stock in 
Corporation_X? 


If the user answers yes (by typing y) to such a question, 
the computer will then ask the user for the name of the entity 
and automatically add the type of the entity to the comput- 
er’s data base. For example, if the user states that Corpora- 
tion Y may actually or constructively own stock in Corpora- 
tion X in response to the above question, the computer will 
add the fact corporation(Corporation_Y) to its data base. 
Finally, entity_of asks the user what percentage interest Cli- 
ent has in the entity in question. This is necessary because 
the rules set forth in Section 318(a)(2) state that stock 
owned by an entity is considered to be proportionately owned 
by its beneficiaries. 

It should be noted that TA currently does not automatical- 
ly determine whether a client owns a 50% or more ownership 
interest in a given corporation. It simply asks the user wheth- 
er there is such a corporation. In particular, the 50% owner- 
ship requirement must be determined by applying the Sec- 
tion 318(a) attribution rules. This rule presently is not in the 
system. 

After TA determines the identity and percentage owner- 
ship interest of Client in entities that may actually or con- 
structively own stock in Corp, it then calls the procedure 
entity_own(Client, Corp, List, M, N, OldClient), which de- 
termines the number of shares that each such entity in List 
actually or constructively owns in Corp. Once this is done, 
entity_own determines Client’s proportional interest in such 
ownership. In other words, entity_own first calls nu- 
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Whether you program on the Macintosh, 
the IBM PC, an Apple II series, a CP/M 
_ system, or the Commodore 64, your pro- 
= gram will run unchanged on all the rest. If 
you write for yourself, MasterFORTH will 
ee your investment. If you —— 
write for others, it will expand -_—s—= 
your marketplace. are 
d MasterFORTH is a state-of-the-art imple- 
mentation of the Forth computer language. 
Forth is interactive — you have immediate 
feedback as you program, every sot of the 
way. Forth is fast, too, and you can use its 
built-in macro assembler to make it even 
faster. MasterFORTH’s relocatable utilities, 
transient definitions, and headerless code 
let you pack a lot more program into your memory. The 
resident debugger lets you decompile, breakpoint, and 
trace your way through most 
CP/M programming problems. A string 
package, file interface, and 
full screen editor are all standard features. 
MasterFORTH exactly matches the Forth-83 Stan- 
dard dialect described in Mastering Forth by Anderson 
and Tracy (Brady, 1984). The standard package in- 
cludes the book and over 100 pages of supplemen- 
tary documentation. 
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ASSEMBLE 3-6 TIMES 


FASTER ON THE IBM PC 


Introducing FAST ASSEM-86™, the first Editor/Assembler for the IBM PC and PC 
compatibles. FAST ASSEM-86™ (FASM) is significantly faster and easier to use 
than the IBM Macro-Assembler (MASM). Whether you are new to assembly 
language and want to quickly write a small assembly language routine, or are an 
experienced MASM user tired of waiting months to assemble large files, FAST 
ASSEM-86 will bring the excitement back to assembly language. 


















FAST ASSEM-86 |S MUCH FASTER: 


e How fast is FASM™? The graph below shows relative assembly times for a 48K 
source file. For large files like this we blow MASM'’s doors off at 3 times their 
speed. For smaller 8K files we positively vaporize them at 6 times their speed. 


FASM™ (110 sec.) as 
MASM v1.0 (340 Sec.) [attra nee 


e FAST ASSEMN-86 is faster for the following reasons: (1) Written entirely in 
assembly language (unlike MASM). (2) Editor, assembler and source file always 
in memory so you can go instantly from editing to assembling and back. (3) 
Eliminates the time needed to LINK programs. Executable .COM files can b« 
created directly. (Also creates .OBJ files completely compatible with the IB*. linker). 

















FAST ASSEM-86 |S EASIER TO USE: 
FASM includes many other features to make your programming simpler. 


e@ Listings are sent directly to screen or printer. Assemblies can be single stepped 
and examined without having to leave the editor. 


e Access the built in cross reference utility from the editor. 
@ Full support of 186 and 286 (real mode) instructions. 


Both Microsoft and 8087 floating point formats are supported. 8087 and 287 
instructions supported directly without macros for faster assembly. 


® Calculator mode: Do math in any radix even using symbols from the symbol table. 
@ Direct to memory assembly feature lets you test execute your code from editor. 
@ Coming soon: A coordinated symbolic debugger. 


COMPATIBILITY: FASM is designed for source code compatibility with MASM and 
supports most of its important features. 


Introductory Price $ 99 iealer inquires weicome 


916-966-6247 
Speedware™ 


BoxD2, 2931 Northrop Avenue 
IBM, Microsoft trademarks of IBM Corp., Microsoft Corp. respectively. 
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® Atari 65SC802 & 65SC816 
* AIM 65 The new 16 bit CMOS 6502's from 


# Commodore’ Western Design Center and GTE 
# Ohio Scientific 


% # Highly Extended fig-- FORTH : 
© Full Double Number Set - Strings * 


ae Optional Tools: Meta~ Cross: Compiler with 


Assembler and Debugger * 
® Multi--Tasking Super Fast FORTH~- 83 soon 
Your present 8 bit. system will run faster es 


with 16 bit software (FORTH) and a 65SU802 
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m_a_own(H, Corp, N1) to determine the number of shares, 
N1, which the entity, H, actually owns in Corp. For example, 
if Client owns a 50% interest in a partnership, PS, and PS 
owns 100 shares of the stock in Corp, entity_own will deter- 
mine that Client constructively owns 50 shares of stock in 
Corp as a result of Section 318(a)(2)(A). 

For each entity in which Client has an interest and which 
may actually or constructively own stock of Corp, enti- 
ty_own will then use the attribution rules of Section 
318(a)(2) and 318(a)(4) to determine the number of shares 
of stock that the entity constructively owns. These rules ac- 
count for the reattribution rules set forth in Section 
318(a)(5)(A). entity_own, however, does not include the 
constructive ownership rule set forth in Section 318(a)(3) 
because Section 318(a)(5)(C) provides that stock construc- 
tively owned by an entity by reason of the applicaton of the 
“to” attribution rules set forth in Section 318(a)(3) will not 
be considered as owned by the entity for purposes of apply- 
ing the “from” attribution rules of Section 31 8(a)(2). 

The problem of reattribution that is inherent in Section 
318(a) has been easily handled in the Prolog rules because 
Prolog permits a recursive definition of procedures. Thus, 
the procedure num_from was able to call itself as applied to 
a different entity and, as a result, accounts for the reattribu- 
tion rules of Section 318(a)(5)(A). 


The Rule of Section 318(a)(3)—num_to 

The procedure num_to(Client, Corp, Number) determines 
the Number of shares that Client constructively owns of Corp 
as a result of the “to” attribution rules set forth in Section 
318(a)(3). Because these rules apply only if Client is not an 
individual, num_to returns zero if Client is an individual. 
Furthermore, if Client and Corp are the same, num_to again 
returns zero. 

If Client is not an individual and is not the same as Corp, 
num_to then forms a list of all those beneficiaries of Client 
who may own stock, actually or constructively, in Corp. This 
procedure is similar to the procedure entity_of discussed 
above. The only difference is that if the procedure deter- 
mines that the entity is a trust, it then asks the user whether 
the beneficiary’s interest in the trust is a “remote contingent 
interest.” If the user answers yes, the beneficiary is not in- 
cluded in the list of beneficiaries who may own stock in 
Corp. !° 

Once TA has determined the beneficiaries of Client who 
may actually, or constructively, own stock of Corp, num_to 
then determines the number of shares of stock that each such 
person actually and constructively, as a result of Sections 
318(a)(1)-(4), owns of Corp. In other words, num_to calls a 
procedure to_entity_own, which then calls num_a__own, 
num_tfamily, num_from, num_to, and num_options. This 


accounts for the reattribution rules set forth in Section 
318(a)(S5)(A). 


The Rule of Section 31 8(a)(4)—-num_options 

Finally, the procedure num_options(Client, Corp, Number) 
handles the “options” attribution rules set forth in Section 
318(a)(4). This procedure simply asks the user whether Cli- 
ent has an option, or an option to acquire an option, to ac- 
quire stock of Corp. If the user answers yes, num_options 
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then asks the user how many shares of Corp stock Client has 
an option on. 


Examples 
Listing Two contains several computer runs for various fac- 
tual situations. These examples have been taken from the 
examples set forth in the Treasury Regulations under Sec- 
tion 318(a). The user input has been underlined for clarity. 
Listing Three (page 84) contains an example of a run in 
which the procedures num_a_own, num_con_own, num_ 
family, num_from, num_to, and num_options have been 
“traced.” This permits the reader to see how Prolog recur- 
sively applies the various procedures in the case of a reattri- 
bution problem. 


Simple Explanations 


Although the Section 318(a) program correctly determines 
the number of shares of stock of a given corporation that a 
person constructively owns as a result of the Section 318(a) 
attribution rules, most attorneys using the program will also 
want to know how the computer reached its conclusion. For 
example, if a senior partner asks an associate to determine 
the number of shares of stock of a given corporation that an 
individual owns as a result of the Section 318(a) attribution 
rules and the associate simply gives the number, the senior 
partner would undoubtedly ask the associate to prepare a 
memo outlining the reasoning he or she used to arrive at the 
number of shares. Furthermore, if the Section 318(a) pro- 
gram were used to prepare a Tax Court petition, the attorney 
would need to present a well-reasoned opinion supporting his 
or her position. This could be done only by explaining how 
the Section 318(a) attribution rules applied to the facts in 
question. Finally, if the attorney simply relied upon the nu- 
meric Output from the program and did not review the com- 
puter’s reasoning, the attorney could leave himself or herself 
open to a malpractice suit. Thus, any useful “‘knowledge- 
based”’ system in the legal field must permit the user to ask 
the computer to explain how it reached its conclusion. 

The issue of how to have the computer generate useful 
explanations is quite complex. For example, explanations by 
human experts are usually tailored to their audiences. In 
particular, an associate would use a different (and more 
technical) explanation of how he or she arrived at the num- 
ber of shares of stock that an individual owns as a result of 
the Section 318(a) attribution rules if he or she were writing 
a memo to a senior tax partner as opposed to explaining the 
problem to a client. Furthermore, in most situations, the 
high level domain rules that are incorporated into the com- 
puter program may not adequately contain their justifica- 
tions. Although these problems present a number of interest- 
ing questions, which should be addressed by future research, 
they will not be considered in this paper.!! 

As will be illustrated below, most of the above complex- 
ities that arise in generating useful explanations have been 
avoided in TA because the rules set forth in Section 318(a) 
are justifications for themselves. In other words, the tax 
rules set forth in the Internal Revenue Code generally need 
no further justification other than the fact that Congress 
enacted such statutory provisions. F urthermore, the complex 
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problem of dealing with the interpretation of case law is 
avoided because there are very few cases under Section 
318(a). 

The remainder of this part of the paper will discuss how 
the Prolog program in Listing Four (page 87) implements a 
simple explanation facility. ! 


Answering How the Computer Reached Its 
Conclusion 

In order to understand how TA explains how it arrives at a 
given conclusion, consider the following fact situation. As- 
sume that TA is asked how many shares of stock of Corpora- 
tion X the client, Dean, owns as a result of the family attri- 
bution rules. Furthermore, assume that Dean has only one 
family member, his spouse, Mary. Finally, assume that 
Mary actually owns 1,000 shares of Corporation X stock. 
Based on these facts, TA will explain its reasoning as follows: 


START OF EXPLANATION 
The number of shares of Corporation_X stock construc- 
tively owned by Dean as a result of Section 318(a)(1) is 1,000, 
determined as follows: 


An individual is deemed to own the stock owned by his family. 
Section 318(a)(1). 

FACT: Dean is an individual. 
| A spouse is a family member. Section 318(a)(1)(A)(i). 
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FACT: Mary is the spouse of Dean. 

FACT: Mary actually owns 1,000 shares. 

FACT: Dean has no more family members. 
END OF EXPLANATION 


As can be seen, the explanation generated by TA applies 
the rules set forth in Section 318(a)(1) to the facts in 
question. 

In order to explain its reasoning, each rule of TA contains 
an extra argument, H, which contains a list of descriptions of 
the Prolog rules that were successful when the program fi- 
nally reached its conclusion.'!3 For example, when 
num_a_own determines how many shares of Corporation X 
stock Mary actually owns, it adds the description: 


FACT: Mary actually owns 1,000 shares. 


to the list of descriptions. 

Furthermore, whenever a Prolog rule is successful, the 
rule adds a description of itself as the first element in the list 
for generating the explanation. For example, the predicate 
spouse_own adds the description found by get_rule (2,Z) to 
the head of the list once it has determined both that Dean 
has a spouse and the number of shares of stock the spouse 
actually owns. In particular, get_rule(2,Z) simply sets the 
first element of the list to the description: 
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A spouse is a family member. Section 318(a) 


(1) A)(i). 


Once TA has determined how many shares of stock Dean 
constructively owns as a result of the Section 318(a)(1) fam- 
ily attribution rules, it asks the user if he or she wants an 
explanation of its conclusion. If the user answers yes, TA 
calls the predicate how, which simply prints each element of 
the list H containing the descriptions. (See Listing Four). 


Answering Why a Given Question Is Asked 

In the full Section 318(a) program in Listing One, TA asks 
the user for only those facts required to reach its conclusion. 
To make the program more useful, the user should be able to 
ask the computer why it asks a given question. For example, 
when the computer asks the user: 


Is Dean an individual? 


the user should be able to ask why the computer needs to 
know this information. 

In the prototype program in Listing Four, the computer 
will answer why by returning: 


An individual is deemed to own the stock owned by his 
family. Section 318(a)(1). 


In other words, TA is telling the user that it needs to know 
if Dean is an individual in order to determine whether it 
should apply the family attribution rules of Section 
318(a)(1). If the user is still not satisfied with this explana- 
tion, the user can again type why in response to the question: 
Is Dean an individual? This time, the program will return: 


This is what the Internal Revenue Code provides! 


In other words, in the simple Section 318(a) program, the 
ultimate explanation of any rule is that the Internal Revenue 
Code contains the rule. 

In order to implement the why feature, an additional argu- 
ment, W, is added to each rule. This argument contains a list 
of all rules that have been used by the program up to the 
point at which the computer asks for further information. In 
the above example, the program has just entered the rule 
num_family. 

TA first attempts to satisfy this rule by determining 
whether Client is an individual. As a result, it asks the 
question: 


Is Dean an individual? 


At this point in the program, the argument W contains a list 
with one element, the description: 


An individual is deemed to own the stock owned by his 
family. Section 318(a)(1). : 


Thus, when the user types why in response to the question, 
Prolog simply returns the first element of the list, W, and 
then asks the question again. If the user again asks why, the 
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program will print the next element of the list and again ask 
the question. When the list contains no further elements, the 
program will simply explain that: 


This is what the Internal Revenue Code provides! 


See Listing Five (page 90) for further examples of 
explanations. 


Providing Help When the Computer Asks Questions 
If the attorney using the program is not familiar with the 
given area of tax law, he or she may need help in answering 
some questions that the computer asks, For example, in order 
to keep the questions short, TA simply asks the question: 


Does Dean have a spouse? 


The user may need some assistance in determining how the 
word spouse is defined. The present version of TA permits 
the user to type help in response to the computer’s request for 
information. For example, if the user types help in response 
to the question: 


Does Dean have a spouse? 
the computer will answer: 


A spouse does not include one who is legally separated from 
Dean under a decree of divorce or separate maintenance. Sec- 
tion 318(a)\(1)(A)(i). 


Thus, TA gives the user some assistance in determining how 
the word spouse is defined for purposes of Section 318(a). 
The present system, however, does not further define the 
terms “legally separated,” “decree of divorce,” or “separate 
maintenance.” For example, TA would not assist the user in 
determining whether an interlocutory decree of divorce un- 
der California law constitutes a “decree of divorce” for pur- 
poses of Section 318(a). It appears, however, that it would be 
possible to build further help facilities into the program if 
additional memory were available. 

Finally, it should be recognized that this help facility may 
be insufficient in an actual system designed to assist attor- 
neys because it requires the attorney to know when to ask for 
help. In particular, the attorney might simply assume that 
the word spouse for purposes of Section 318(a) includes any 
person who is married to the client even if legally separated 
from him or her. Thus, unless the user knew to ask for help, 
he or she might incorrectly answer the question. 


Conclusion 


This paper has discussed two Prolog programs that imple- 
ment the rules contained in Section 318(a). Unlike other 
computer programs that have been developed in various le- 
gal fields, the major purpose of developing TA has been to 
illustrate that Prolog may be used to implement legal reason- 
ing systems in a fairly straightforward manner. Further- 
more, this paper has attempted to show that Prolog may also 
be used to implement simple explanation facilities for knowl- 
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edge-based programs. 

TA achieves its degree of success, however, mostly be- 
cause the tax rules of Section 318(a) are very well defined 
and not subject to interpretation by a large number of cases. 
It is presently unclear how the rules set forth in case law 
could be incorporated into the present framework in an area 
where case law is at least as important as the statutory 
provisions. 

The prototype programs also illustrate that it is possible to 
design interfaces to legal reasoning programs that permit a 
user who is not a computer expert to use the program. In 
particular, more effort has gone into devising a suitable user 
interface than into the more complex issues of representing 
the rules and knowledge required to implement the Section 
318(a) programs. In narrow, well-defined areas of the law, 
however, this method may be acceptable. If it is, programs 
that are useful to attorneys may be able to be developed 
much more quickly than currently appears possible. 

Finally, it should be recognized that the explanation facil- 
ities described in this paper are extremely simple. Because 
the best explanation of Section 318(a) is in terms of the rules 
of that Section, however, the explanation facility of TA is 
probably adequate. In other situations, however, such simple 
explanations would clearly be inadequate. 


Notes 


' Unless otherwise stated, all Section references are to the 
Internal Revenue Code of 1954, as amended. 

>See for example: L. T. McCarty, “Reflections on TAX- 
MAN: An Experiment in Artificial Intelligence and Legal 
Reasoning,” Harvard Law Review (1977) 90, 837-93: A. 
Hustler, Programming Law in Logic, Department of Com- 
puter Science, University of Waterloo, Research Report CS- 
82-13 (1982). 

> CP/M-86 is a trademark of Digital Research, Inc. 

* Prolog-86 is a trademark of MICRO-AI. 

> It is unclear, however, whether the shares of stock owned 
by a grantor trust will also be attributed to the beneficiaries 
of the trust pursuant to Section 318(a)(2)(B)(i) discussed 
above. TA implicitly contains the rule that shares of stock 
owned by a grantor trust are attributed to the beneficiaries 
pursuant to Section 318(a)(2)(B)(i). 

° The programs discussed in this paper are written in Prolog- 
86. Prolog-86 is based on the University of New South 
Wales Prolog, which runs under Unix (Unix is a trademark 
of Bell Telephone Laboratories) and is similar in many ways 
to the original DECSystem-10 Prolog written by L. M. Per- 
eira, F.C. N. Pereira, and D. H. D. Warren. Prolog-86 cur- 
rently runs under CP/M-86, and MSDOS and PCDOS. Pro- 
log-86 is available through Solution Systems, 335-D 
Washington Street, Norwell, MA 02061. Those readers who 
are interested in learning more about Prolog should read the 
book Programming In Prolog by W. F. Clocksin and C. S. 
Mellish and published by Springer-Verlag. 

’ As a result of restrictions on numbers in Prolog-86, the 
implementation language of TA, fractional shares are not 
allowed. Furthermore, the number of shares must be less 
than approximately 30,000. These restrictions could be lift- 
ed if the Prolog interpreter permitted real numbers (i.e., 
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fractions) and “long” integers. 

’In Prolog, the operator is causes arithmetic evaluation. 
Thus, N is NI + N2 + N3 + N4 sets N to the sum of N1, 
N2, N3, and N4 if N is previously uninstantiated. 

” A list is an ordered sequence of elements of any length. In 
Prolog, a list is represented as: [a, b, c]. a, b, and ¢ are the 
elements of the list. The null list is represented as [ ]. 

'0 Section 318(a)(3)(B)(i). In this regard, TA does not assist 
the user in determining whether a beneficiary’s interest is a 
“remote contingent interest” as opposed to a “‘vested”’ inter- 
est or a contingent interest that is not remote. In a larger 
system, such rules must be included because it is unlikely 
that a user of the system would know how Section 
318(a)(3)(B)(i) defines a remote contingent interest. 

'! See for example: J. A. Goguen, J. L. Weiner, and C. 
Linde, “Reasoning and Natural Explanation,” Int. J. Man- 
Machine Studies (1983) 19, 521-559; William R. Swartout, 
“XPLAIN: A System for Creating and Explaining Expert 
Consulting Programs,” Artificial Intelligence (1983) 21, 
285-325; and William J. Clancey, “The Epistemology of a 
Rule-Based Expert System—a Framework for Explana- 
tion,” Artificial Intelligence (1983) 20, 215-251. 

'* Due to memory constraints, the Prolog program described 
in Listing Four only implements the family attribution rules 
of Section 318(a)(1). If the Prolog interpreter were able to 
access more than 128K of RAM, it would be fairly easy to 
include the simple explanation system in the full Section 
318(a) program listed in Listing One. 

'5 The design of the explanation facilities set forth in this 
paper is based on the article by K. L. Clark and FE. G. 
McCabe with an appendix by P- Hammond, “PROLOG: A 
Language for Implementing Expert Systems,” Machine In- 
telligence (1982) 10, 455-475. 
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Tax Ad visor (Text begins on page 64) 


Listing One 

% THE COMPLETE SECTION 318(a) PROLOG PROGRAM 

% By Dean A. Schlobohm 

© Copyright 1984 by Dean A. Schlobohm. All Rights Reserved. 
% Version 1.0 

% Date: 6/11/84 

% Bugs: 

% 1. Does not include the rule that stock cannot count more 
% than once. 

% 2. When it asks for partners, etc. that own stock, you must 
% enter all partners who actually or constructively may own 
% stock. 

% 3. Does not handle "How", "Help" and "Why" 

%$ To Use: type "prolog sec318.pro<RET>" then after Prolog is 
% loaded type “section318!<RET>" 


% preliminary functions 


append([],L,L) :- !. 
append( (X|L11, L2,{(X|L3]) :- append(L1,L2,L3). 


appendall([],[]). 
appendall([H],H). 
appendall([H1,H2],L) :- append(H1,H2,L). 
appendall([Hl, H2|T], L) :- 
append(H1,H2, x), 
appendall(T,2),!+ 
append(X,Z,L). 
member(X,[X|_]) :- !. 
member(X,{_|¥]) :- member (X,Y). 


add(X) ihe Ky i 

add(X) :- asserta(X),!. 

% The Interface Program. 
section318 :- 


prompt(Old,' '), 
nl,nl,nl,nl,nl,nl,nl,nl,nl,nl1,nl,nl, nl,ni,nl,nisni,ni,ni,nl, 


print(" THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES 
OF’), 

print(' STOCK A CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A 
RESULT'), 

print‘ OF SECTION 318(a) OF THE INTERNAL REVENUE CODE.'), 

ni nl, 

ook! Enter the name of the Client. (One word) ' 


,Client),nl, 
type(Client), 


ask(' Enter the name of the Corporation. (One word) ' 
,corp) ,nl, 

add(corporation(Corp)),!, 

num a _own(Client,Corp,N _actual), 

num con own(Client, Corp,N__ con),!i,nl,nl, 


print(' The number of shares of ',Corp,' stock actually 
owned by'), 

print(Client,' is ‘UN _actual,'.'),nl,nl, 

print(* The number of shares of ',Corp,' stock 


abcd: ES | owned' de 

print('by ' Cihient,. 4s), N con,‘ > Y). 1 HL, 

ask(' Do you want to try another see Sen ree eee 
CCK -ecy) ¢ (Kee PE) nt, AL, 

prompt(_,Old), 

section318. 


individual(Client) :- ind(Client). 
individual(Client) :- 
(partnership(Client) ; 
estate(Client) ; 
trust(Client) ; 
grantor trust(Client) ; 
cpeE ere OMe 
praitd. 


(Continued on next page) 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing One 


individual(Client) :- 
type(Client),!, 
individual(Client). 


type(Client) :- 
(ind(Client) ; 
partnership(Client) ; 
estate(Client) ; 
trust(Client) ; 
grantor trust(Client) ; 
corporation(Client)),!. 
type(Client) :- 
print(' Is ',Client,' an Individual, Partnership, Estate, 
FEMS g...° 3) 5 
print" Grantor trust. or Corporation? (enter i, p, e, t, g, 
OFC)" ), 
ratom(X),nl, 
assert type(X,Client),!. 





assert _type(i,C) :- add(ind(C)),!. 

assert _type(p,C) :- add(partnership(C)),!. 
assert _type(e,C) :- add(estate(C)),!. 

assert type(t,C) :- add(trust(C)),!. 
assert_type(g,C) :- add(grantor trust(C)),!. 
assert _type(c,C) :- add(corporation(C)),!. 


$ the rule for actual ownership 


num_a_own(Client,Client,0) :- !. 
num_a_own(Client,Corp,N) :- 
print(' How many shares of ',Corp,' stock does " Client), 
prin('actually own? '), 
ratom(X),nl, 
integer(X), 


N = X,!. 
num_a_own(Client,Corp,N) :- 
print(' Error -- You must enter an integer!'),nl,!, 


num_a_own(Client,Corp,N). 
%$ the main rule of Section 318(a) 


num_con_own(Client,Corp,Number) :- 


num_family(Client,Corp,Nl), % Section 318(a)(1) 
num_from(Client,Corp,N2,zz2zz), % Section 318(a)(2) 
num_to(Client,Corp,N3), % Section 318 (a) (3) 
num_options(Client,Corp,N4),!, @ Section 318(a)(4) 


Number is Nl + N2 + N3 + N4, 
% the rule of Section 318(a)(1) 


num_family(Client,Corp,Number) :- 
individual(Client),!, 
family of(Client,List_of family), 
family own(Client,Corp,List_of family,0,Number). 
num_family(Client,Corp,0). 


% definition of family of 


family of (C,L) :- 
ili, 
Hprint' Does ',C,' have a spouse, child, grandchild, or 
parent? '), 
ratom(X),nl, 
COR Soy} ys Oe Saye a 8, 
ask(' What is the name of the first family member? ' 
Hb Gor, Eee BP 
add(ind(y)), 
family of2(C;,E2);,t, 
append ((Y}].,L2;L). 
family of(C,[]). 


family of 2(C,L) :- 
nl; 


peint? Does ',C,' have any more family members? ') 


ratom(X),nl, : 
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((X = y) ae = xo Sept Gre 
ask(' What is the name of the next family member? 
7X),nl,!, 


add(ind(Y)), 

family of2(C,L2),!, 

append([Y],L2,L). 
family of2(C,[]). 


% definition of family own 


% note Section 318(a)(5)(B) is included since family own does 
% not include num_family. & 


family own(Client,Corp,[],N,N):- bs 
family own(Client,Corp,[P|T],M,N) :- 






p /= Client,!, 
num _a_own(P,Corp,N1l), 
num from(P,Corp,N2,z2222), 


option lieu family(Client,Corp,P,N3), % Section 318(a)(5)(D) 


N4 is Nl + N2 - N3, 
num_options(P,Corp,N5), 

N6 is M + N4 + NS, 

{ 

ov 

family own(Client,Corp,T,N6,N),!. 
family own(Client,Corp,[P|T],M,N) :- 
family own(Client,T,M,N). 


option _lieu_family(Client,Corp,P,N) :- 
Does ',Client,' own an option (or an option to 


printi(* 
acquire'), 


print('an option) to acquire the stock in ‘Corp, ' which 


9 Re 

prin('actually owns? '), 
ratom(X),nl, 

RCS ely se {X02 Eke 
print(' 
prin('have an option on? oe 
ratom(N),;ni,ni,!. 





How many shares of ',Corp,' stock does ' ©Lident), 


(Continued on next page) 









QUALITY SOFTWARE AT 
REASONABLE PRICES 


CP/M Software by 
Poor Person Software 


Keyed Sequential Files $39.95 


CP/M 2.2 Extension. Available to all languages with a BDOS interface. 
Variable length Records to 508 bytes, single key to 32 bytes, files to 256k 


bytes. Source for “C” language support library. 
2 
Poor Person’s Menus $29.95 
Interactive menu cesen and edit program with “C” language source 
for runtime support library. Package includes ‘“‘C’”’ source for an 
interactive Mailing List Manager using Poor Person’s Menus and 


sepeaey purchased Keyed Sequential Files (compatible with Mailing 
Label Printer). Write your own interactive data manager programs. 


Poor Person’s Spooler $49.95 


All the function of a hardware print buffer at a fraction of the cost. 
Keyboard control. Spools and prints simultaneously. 
$29.95 


Poor Person’s Spelling Checker 
Simple and fast! 33,000 word dictionary. Checks any CP/M text file. 


Mailing Label Printer $29.95 
Select and print labels in many formats. 
$29.95 


Window System 
Application control of independent virtual screens. 
All products require 48k CP/M 2.2 and are available on 8” and 5” 
Northstar formats, other 5” formats add $5 handling charge. California 
residents include sales tax. 
Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 


CP/M is a registered trademark of Digital Research 


Circle no. 71 on reader service card. 
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BIG DISCOUNTS FROM 


JOHN D. OWENS ASSOCIATES 


MACROTECH MI-286: 80286/Z-80H DUAL PROCESSOR S-100 CPU 
BOARD: $1,116 
MACROTECH MEMORY MSR: 120NS, high-speed dynamic RAM with 
realistic pricing: 

Works with CompuPro 8085/8088; MT-286 and others: 

256K: $556 512K: $876 










ee ees eee Sen am 
HOUSTON INSTRUMENTS: Plotters: DMP 41 OR 42: $2,397; DMP 29: 
$1,838 

DIGITIZERS: DT11 $694; 


DT114 $750; DT11AA $714 











UCI S-100 RAM: ZENITH compatible 256K $636; 512K $916 
ee ee i ree: Cae ree See oe NL eS ee err: eer eae 


PSCE S-100 68000 Single board computer: $850 


junnnnrnTnTn nc nnn 
ILLUMINATED TECHNOLOGY S-100 COLOR GRAPHICS: $1,116 









ee nnn n ee 
RACTER: Interactive Conversational Software for IBM-PC. 4 page review in 
JAN 85 SCIENTIFIC AMERICAN called RACTER “extremely funny” 
$69.95 + $3 UPS. 











BIG DISCOUNTS on LOMAS, COMPUPRO, IMS, 
INTERCONTINENTAL MICRO, NEC APC, SEMIDISK, ADVANCED 

DIGITAL, ACKERMAN, SCION, and many others. Write or call for product 
literature and inventory sale list. 


WE EXPORT: OVERSEAS CALLERS: TWX 710 588 2844 
(OW ENSASSOC NYK) 





DOMESTIC AND OVERSEAS ORDERS TAKEN BY PHONE, 
LETTER, TELEX OR EASY LINK. 
We accept VISA and Mastercard. Shipping $5 per board in continental USA. 


JOHN D. OWENS ASSOCIATES 
12 SCHUBERT STREET STATEN ISLAND, NEW YORK 10505 
(718) 448 6298 (718) 448 2913 


(718) 448 6283 
EASY LINK MAILBOX ADDRESS: 63840764 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing One 


Option_lieu_family(Client,Corp,P,0) :- !. 


% the rule of section 318(a)(2) 
$ entity-of returns a list ((name percent) (name2 percent 2) s.-) 


num from(Client,Corp,0,OldClient) :- 

fil, 

print(' Do you want to consider applying the rules of'), 

prin('Section 318(a)(2) to ',Client,'? (enter ¥o Or my o* $4 

ratom(X),nl, 

EX op CRS SN) de 
num_from(Client,Corp,N,OldClient) :- 

ps(P), 

entity of(Client,Corp,Ll,partnership,P), 

est(E), 

entity of(Client,Corp,L2,estate,E), 

tee); 

entity of (Client ,Corp,L3,trust,T), 

SecTl):, 

entity of(Client,Corp,L4,grantor trust,Tl), 

corp(C), 

entity of(Client,Corp,L5,corporation,C), 

appendall([(L1,L2,L3,L4,L5],L), 

entity own(Client,Corp,L,0,N,OldClient). 


entity of(Client,Corp,L,Entity,Prompt) -- 
ni, 
print? Is ',Client,Prompt), 
prin('which owns, actually or constructively, stock in ' 
pCOED Se ee yy 
ratom(X),nl, 
CA UR at OE a 
prin(' What is the name of the ',Entity,'? '), 
ratom(Y),nl, 
add(Entity(yY)), 
prin(' What percentage interest does ',Client,' own? oe 
ratom(Z),nl, 
append([Y],(2Z],P1),!, 
entity _of(Client,Corp,L2,Entity,Prompt),!, 
append({ [P1],L2,L). 
entity of(Client,Corp,[],Entity,Prompt). 


’ 


ps(* a partner ina partnership'). 

est(' a beneficiary of an estate'), 

tr(' a beneficiary of a trust (not described in Section 40l(a))'). 
gt(' the grantor of a grantor trust'). 

corp(' a 50 percent or more shareholder in a corporation'). 


% note Section 318(a)(5)(C) is included since entity own does 
% not include num_to 


entity own(Client,Corp,[],N,N,_) 3-2, 
entity own(Client,Corp,[[{H,P]|T],N,M,OldClient) :- 
H /= Client, 
H /= OldClient, 
num_a_Own(H,Corp,Nl), 
num _from(H,Corp,N2,Client), 
num_options(H,Corp,N3), 
N4 is (Nl + N2 + N3) * Pp / 100, $ this creates an error if 
% N1+N2+N3 > 600 
N5 is N4 +N, 
!, 
entity own(Client,Corp,T,N5,M,OldClient). 
entity own(Client,Corp,[H|T],N,M,OldClient) :- 
entity own(Client,Corp,T,N,M,OldClient)., 


%$ the rule of Section 318(a) (3) 
% ben_of_entity returns a list (name name2 ...) 


num_to(Client,Corp,0) :- 
not(individual(Client)), 
Client /= Corp, 
print(' Do you want to consider applying the rules 6) tat OF 
prin('Section 318(a)(3) to ",Client,'? (enter y or n) jn Be 
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ratom(X),nl, 
((X =in) 7 (X = 'N*)),1. 

num to(Client,Corp,N) :- 
not(individual(Client)), 
Client /= Corp,!, 
ben of entity(Client, Corp,Ll,partner,partnership), 
ben OF ~entity(Client, Corp,L2,beneficiary,estate), 
ben of ~entity(Client, Corp,L3,beneficiary,trust), 
ben _of ~entity(Client, Corp,L4,grantor,grantor trust), 
ben of —entity(Client, Corp,L5,shareholder,corporation), 
appendall([Ll, L2,L3,L4,L5),L), 
to entity | owniciient, Corp,L,0,N). 

num _to(Client, Corp,0). 


ben of entity(Client,Corp,L,Prompt,Entity) - 
Entity(Client), 
print(' Is there a ',Prompt,* of ',Client,’ who owns, 
actually'), 
prin('or constructively, stock in ',Corp,'? '), 
ratom(X),nl, 


Pr Rey) pK RTL 
((Entity = trust, 

ask(' Is the interest a remote contingent interest? ' 
sey his 


Cte e fs yy), AK2 / 3 OXI 
(Entity = corporation, 
ask(' Does the shareholder own 50% or more of the stock? 
é 
pieaady 
Ott (83. = vy) 3 (83 = ADD) 3 
(Entity /= trust , Entity /= corporation)), 
prin(' What is the name of the ',Prompt,'? '), 
ratom(Y),nl,nl, 
type(Y),!, 
ben of entity(Client,Corp,L2,Prompt,Entity),!, 
append( [Y],L2,L). 
ben of entity(Client, Corp,[(),Prompt,Entity) :- !. 


to entity own(Client,Corp,[],N,N) :- !. 
to entity own(Client, Corp, [HIT], N,M) :- 
H /= Client, 
num_a_own(H,Corp,N1), 
num _family(H, Corp,N2), 
num _ ~from(H,Corp,N3,Client), 
num_to(i,Corp,N4), 
num —options(H, Corp,N5), 
N6 is N + N11 + N2 + N3 + N4 + NS, 
{ 
to _entity own(Client,Corp,T,N6,M). 
to entity own(Client, Corp, (H|T], N, M) :- 
! 


to entity own(Client,Corp,T,N,M). 
% the rule of Section 318(a)(4) 


num_options(Client,Corp,N) :- 
0 
orint (,' Does ',Client,' own an option (or an option to 
acquire'), 
prin('an option) to acquire the Stock in. 7Corp,. 2? *); 
ratom(X),nl, 
COR ey ee. SEs 
print(' How many shares of ',Corp,' stock does ' client), 
prin('have an option on? '), 
ratom(Y),nl, 
integer(Y),!, 
num options(Client,Corp,M), 
Nis |\M + -Y,!+ 
num options(Client,Corp,0). End Listing One 


Listing Two 
- % BXAMPLE) 1. Reg. Section 1.318-2(b). 
: section318! 

THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 
CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 
318(a) OF THE INTERNAL REVENUE CODE. 


(Continued on next page) 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Two 


Enter the name of the Client. (One word) H 


Is H an Individual, Partnership, Estate, Trust, Grantor 
trust, or Corporation? (enter i, p, e, t, g, or c) ef 


Enter the name of the Corporation. (One word) Corporation 


How many shares of Corporation stock does H actually own? 25 


Does H have a spouse, child, grandchild, or parent? y 
What is the name of the first family member? W 

Does H have any more family members? y 

What is the name of the next family member? GS 


Does H have any more family members? n 


How many shares of Corporation stock does W actually own? 25 


Do you want to consider applying the rules of Section 
318(a)(2) to W? (enter y or n) nh 


Does H own an option (or an option to acquire an option) to 
acquire the stock in Corporation which W actually owns? n 

Does W own an option (or an option to acquire an option) to 
acquire the stock in Corporation? n 


How many shares of Corporation stock does S actually own? 25 


Do you want to consider applying the rules of Section 
318(a)(2) to 5? (enter y or n) vn 


Does H own an option (or an option to acquire an option) to 
acquire the stock in Corporation which S actually owns? n 


Does S Own an option (or an option to acquire an option) to 
acquire the stock in Corporation? n 


How many shares of Corporation stock does GS actually own? 
25 


Do you want to consider applying the rules of Section 
318(a)(2) to GS? (enter y or n) nr 


Does H own an option (or an option to acquire an Option) to 
acquire the stock in Corporation which GS actually owns? n 


Does GS own an option (or an option to acquire an Option) to 
acquire the stock in Corporation? n 


Do you want to consider applying the rules of Section 
218(8)(2) to A? . Center yor) n 


Does H own an option (or an option to acquire an option) to 
acquire the stock in Corporation? n 


The number of shares of Corporation stock actually owned by H 
is 25. 


The number of shares of Corporation stock constructively 
owned by H is 75. 


DO you want to try another Client? n 


% EXAMPLE 2. Reg. Section 1.318-2(c), Example(2). 


THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 
CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 
318(a) OF THE INTERNAL REVENUE CODE. 


Enter the name of the Client. (One word) A 
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March 1985, #101 


Dr. Dobb's journal 


A. Your primary job function: (Check one only) 


C1) Company management (Pres., V.P., Treas., 
Owner, Gen. Mgr., Mktg. Dir.) 

(1) Computer systems management (V.P. EDP, 
MIS Director, Data Processing Mgr., Data 
Communications Mgr., Network Planner) 

DO Engineering management (V.P. Engrg., Chief 
Engr., Tech. Director, Dir. R&D) 

LC) Systems integrators (Systems Designer, Project 
Engr., Systems Application Engr., Technical 
Staff Members) 

1) Consultants (Computer/EDP/Data Communi- 
cations Consultant) 

() Educators (Educational users and instructors 
of computer technology) 

CO Systems/Programming specialists—mini-micro 
systems 

CL) Other (Please specify) 


. Which languages are you MOST interested 
in? 


CL) BASIC Lob Ae. C) PL/I 
C) Fortran LJ LISP CL) APL 
(1 COBOL LJ Prolog 1) Logo 
LJ Pascal LJ Ada C) Smalltalk 
1 Modula-2 () Forth Other 
. What is the operating system? 


CL) CPIM (or derived) 

C) UNIX (or derived) 

C) MS-DOS (or derived) 
LJ Other 
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L] Company management (Pres., V.P., Treas., 
Owner, Gen. Mgr., Mktg. Dir.) 
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C) Consultants (Computer/EDP/Data Communi- 
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(1) Modula-2 () Forth Other 


C. What is the operating system? 


CJ CP/M (or derived) 

LJ UNIX (or derived) 

LJ) MS-DOS (or derived) 
C) Other 
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D. Please indicate which of the following micro- E. What best describes the work you do with 
computers you currently own and/or pian to this microcomputer? 


buy in the next 12 months. 1 Business functions 


Plan C2 Software/Hardware development 

‘iis oe rs Buy CZ Scientifid/Engineering/R&D applications 

e 
caine O ‘a F. Are you the decision maker or very influentiz 
Digital Equipment/DEC oO O in computer-related purchases at work? 
HeathiZenith O O CO Yes O No 
Hewlett-Packard O O 
IBM oO O G. Is your company a dealer, distributor, or 
Macintosh oO Oo systems house for microcomputers? 
Radio Shack/Tandy TRS 80 O O OO Yes 1 No 
Texas Instruments C) O 
Other (Specify) oO 0 H. Subscriber 
None O CO C) Yes L) No 
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“Ouvrez les 
fenétres!”" 


Introducing | MAT Is, the powerful new 
developmental system from France. 


A complete and meticulously detailed ope ie ae 
to make a programmer's work easier, faster, and. 
but of course. . . better. 


[_] Window Management Systems [J Screen Generator L] Expanded 
Basic Commands (] Can be accessed from other languages L] 100% 
Assembler [] Automatic Scrolling in Windows (J Virtual Page larger 
than screen (up to 65534 rows x 65534 columns) CL] Save or Print 
Pages L] MS-DOS [J 170 Page Manual (In English Mon Ami!) 

[] Only $150. 


ORDER BY MAIL—WRITE OR CALL FOR COMPLETE DESCRIPTION 
No license fee. 


Softway, Inc. 


500 Sutter Street * Suite 222- C + San Francisco, CA 94102 
Tel: (415) 397-4666 Telex: 880857 


*“Open the windows! 


Circle no. 92 on reader service card. 
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EXPERT SYSTEMS 


“INSIGHT is essentially the equivalent or better than 
any other tool available for the personal computer.” 


Paul Harmon. author of Expert Systems. Artificial Intelligence in Business 


aiUigemolelal a Gmisicek-len-¢e]4@ Tatitelel ay acmaalelecmaal-lamieriarla 
“expert.” It’s a knowledge base 
Sale} batat=1a tare maele) mYAtdem-)e)e)i(a-lacela 
fer-) of-] 0) | ha =i bemer- ba mer- 110) om w-bvere)| 
programs, read and write dBASE II® 
1a | (ower Tale Mm hacwe(-velt}(e)absaat-).4lale me) cen 
Tati (+) at matermeval Waciiaslelitetccm-(eelt cess can tie in directly to your 

aom (olacme) mi laice)aaat-ia(elammiar-ler-l\74-r existing databases. Run-only ver- 
and offers solutions. For entry-level (eo) atw-] Kemer alm of -me(=n"/21 (0) orem lal, 
operators it’s a perfect procedural distributed. 

rad-llaliatem of-(e-4-\e(-maomal-iiomoleiice| 
lave miaale)(=iaatsialan aalenuy(=10(¢( Mey 1t a 
software. 


Level Insight ($95) and Insight 2" ($485) 
Five run on the IBM®PC, DEC® Rainbow, and 
\V/Tot a0) ame 4 0, 0, 02 
Research, Inc. 


Give it Insight, or give it Insight 2. 
Both let you create knowledge base 
systems using any PC-compatible 
text editor. 


Bit vomtiel(ele(-m olla ¢-(el-) Bagelus Maal 
same expert idea. 


4980 South A-1-A Melbourne Beach, Florida 32951 (305) 729-9046 


Circle no. 53 on reader service card. 


“This is a beautifully 
referer lant-valcciemeiacea-relle) hy 
comprehensive set of 
C Function Libraries.’ 

— Dr. Dobb’s Journal 














WER PACKS, 








COMPLETE 
SOURCES 


ae PACK |: Building Blocks | 
250 Functions: DOS, 
Printer, Video, Asynch 


ae PACK 2: Database 
100 Functions: B-Trees, 
Variable Records 


PACK 3: Communications 
135 Functions: Smart- 
modem Xon/Xoff, 
Modem-7, X-Modem 


Pd PACK 4: Building Blocks II 
100 Functions: Dates, 
Text Windows, 

Pull-down Menus 
Data Compression 


me PACK 5: Mathematics | 
35 Functions: Log, Trig, 
Square Root 


PACK 6: Utilities | $99 
Archive, Diff, Replace, Scan, 
Wipe (Executable Files only) 


Lattice™. Microsoft™, DeSmet™, 
CI-86™ Compilers on IBM PC/XT/AT™ 


Small and Large Memory Models. 


Credit cards accepted . 
($7.00 handling/Mass. add 5%) 


@ sofiwfkt 
aw it LS coe 


soled ={=10|(0)ce me) (¢-1-1t 
Burlington, Mass. 01803 
(617) 273-4711 


NOVUM ORGANUM 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Two 


Enter the name of the Corporation. (One word) Corporation 


How many shares of Corporation stock does A actually own? FS 


Does A have a spouse, child, grandchild, or parent. n 


Do you want to consider applying the rules of Section 
318(a)(2) to A? (enter y or n) y 


Is A a partner in a partnership which owns, actually or 
constructively, stock in Corporation? n 


Is A a beneficiary of an estate which owns, actually or 
constructively, stock in Corporation? n 


Is A a beneficiary of a trust (not described in Section 
401(a)) which owns, actually or constructively, stock in 
Corporation? y 

What is the name of the trust? Trust 

What percentage interest does A own? 4 

Is A a beneficiary of a trust (not described in Section 
401(a)) which owns, actually or constructively, stock in 


Corporation? n 


Is A the grantor of a grantor trust which owns, actually or 
constructively, stock in Corporation? n 


Is A a 50 percent or more shareholder in a corporation which 
owns, actually or constructively, stock in Corporation? n 


How many share of Corporation stock does Trust actually own? 
25 


Do you want to consider applying the rules of Section 
318(a).(2). to Trust? (enter y.or n) on 


Does Trust own an option (or an option to acquire an option) 
to acquire the stock in Corporation? n 


Does A own an option (or an option to acquire an option) to 
acquire the stock in Corporation? n 


The number of shares of Corporation stock actually owned by A 
is: 75. 


The number of shares of Corporation stock constructively 
owned by A is l. 


Do you want to try another Client? n 


% EXAMPLE 3. Reg. Section 1.318-2(c), Example(4). 


THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 
CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 
318(a) OF THE INTERNAL REVENUE CODE. 

Enter the name of the Client. (One word) A 

Enter the name of the Corporation (One word) Corporation O 


How many shares of Corporation_O stock does A actually own? 


Does A have a spouse, child, grandchild, or parent? n 


DO you want to consider applying the rules of Section 
318(a)(2) to A? (enter y or n) y 


Is A a partner in a partnership which owns, actually or 
constructively, stock in Corporation_0? n 
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Is A a beneficiary of an estate which owns, actually or 
constructively, stock in Corporation _O? n 


Is A a beneficiary of a trust (not described in Section 
401(a)) which owns, actually or constructively, stock in 
Corporation _O? n 


Is A the grantor of a grantor trust which owns, actually or 
constructively, stock in Corporation_O? n 


Is A a 50 percent or more shareholder in a corporation which 
owns, actually or constructively, stock in Corporation_O? y 


What is the name of the corporation? Corporation M 
What percentage interest does A own? 70 


Is A a 50 percent or more shareholder in a corporation which 
owns, actually or constructively, stock in Corporation_O? n 


How many shares of Corporation_O stock does Corporation_M 
actually own? 50 


Do you want to consider applying the rules of Section 
318(a)(2) to Corporation_M? (enter y or n) non 


Does Corporation M own an option (or an option to acquire an 
Option) to acquire the stock in Corporation_O? n 


Does A own an option (or an option to acquire an option) to 
acquire the stock in Corporation O? n 


The number of shares of Corporation_O stock actually owned by 
A is 50. 


The number of shares of Corporation_O stock constructively 
owned by A is 35. 


Do you want to try another Client? y 
THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 


CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 
318(a) OF THE INTERNAL REVENUE CODE. 


Enter the name of the Client. (One word) Corporation M 


Enter the name of the Corporation. (One word) Corporation O 


How many shares of Corporation _O stock does Corporation M 
actually own? 50 


Do you want to consider applying the rules of Section 
318(a)(2) to. Corporation M? ‘(enter yor n) oA 


Do you want to consider applying the rules of Section 
318(a)(3) to Corporation_M? (enter y or n) y 


Is there a shareholder of Corporation_M who owns, actually or 
constructively, stock in Corporation _O? y 


Does the shareholder own 50% or more of the stock? y 
What is the name of the shareholder? A 


Is there a shareholder of Corporation_M who owns, actually or 
constructively, stock in Corporation O? non 


How many shares of Corporation_O stock does A actually own? 
50 


Does A have a spouse, child, grandchild, or parent? non 


Do you want to consider applying the rules of Section 
316 (a}(2) to (A? Center yor -n) =n 


Does A own an option (or an option to acquire an option) to 
acquire the stock in Corporation _O? n 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Two 


Does Corporation M own an option (or an option to acquire an 
Option) to acquire the stock in Corporation _O? n 


The number of shares of Corporation_O stock actually owned by 
Corporation M is 50. 


The number of shares of Corporation 0 stock constructively 
owned by Corporation M is 50. 


Do you want to try another Client? n 


Listing Three 


ge 


An Example From Reg. Section 1.318-4(c)(1) 


trace[num a Own,num con own,num family,num from]! 
trace[num to,num options]! 


section318! 


THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 
CLIENT ACTUALLY AND CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 
318(a) OF THE INTERNAL REVENUE CODE. 


Enter the name of the Client. (One word) Corporation Y 


Is Corporation Y an Individual, Partnership, Estate, Trust, 
Grantor trust, or Corporation? (enter i, p, e, t, gy Or c) Cc 


Enter the name of the Corporation. (One word) Corporation Z 


C|>num_a_own('Corporation_Y', 'Corporation Z', _6) 
How many shares of Corporation _ Z stock does Corporation Y 
actually own? 0O 
<num a own( ‘Corporation Y', ‘Corporation 2‘, 0) 
>num_con_own('Corporation_Y', ‘Corporation 2‘, _ 
>num _family(' Corporation _ tee a "Corporation Z', _26) 
>num_family('Corporation_ avs "Corporation Z', 0) 
<num _family(' Corporation Y', "Corporation Z', 0) 
| |>num_from('Corporation_y', ‘Corporation 2", 0, zz2z) 


QmMnWmDaAnranm 


Do you want to consider applying the rules of Section 
31id(a){(2).to Corporation .¥?°. {enter y-or ‘n) on 


E||<num_from('Corporation_Y', 'Corporation Z', 0, zzzz) 
C||>num_to('Corporation y', ‘Corporation 2°, 0) 

Do you want to dens tder applying the rules of Section 
318(a)(3) to Corporation Y? (enter y or. n)- y 
R| |>num_to('Corporation_Y', ‘Corporation Z', _28) 

Is there a shareholder of Corporation _ y who owns, actually or 
constructively, stock in Corporation _ 2? y 

Does the shareholder own 50% or more of the stock? y 

What is the name of the shareholder? A 


Is A an Individual, Partnership, Estate, Trust, Grantor 
Crust, :Or corporation?...(enter 1, p; 6,4 tb; @,y_ Or =e) ‘§ 


Is there a shareholder of Corporation _Y who owns, actually or 
constructively, stock in Corporation 2? n 


C|||>num_a_own('A', ‘Corporation Z2', _136) 


How many share of Corporation 2 stock does A actually own? 0O 


E fees a_own('A', ‘Corporation Z', 0) 
C >num family(' A', "Corporation 2', _137) 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Three 


Does A have a spouse, child, grandchild, or parent? n 


<num de cae ae A', ‘Corporation 2', 0) 
>num_from('A', ‘Corporation z', 0, ‘Corporation y') 





E 
C 

Do you want to consider applying the rules of Section 
s18taj(2) to A? (enter y-or sn): y 


R|||>num_from('A', 'Corporation_Z', _138, ‘Corporation yY') 


Is A a partner in a partnership which owns, actually or 
constructively, stock in Corporation _Z? n 


Is A a beneficiary of an estate which owns, actually or 
constructively, stock in Corporation Z? n 


Is A the grantor of a grantor trust which owns, actually or 
constructively, stock in Corporation 2? n 


Is A a 50 percent or more shareholder in a corporation which 
owns, actually or constructively, stock in Corporation 2? y 


What is the name of the corporation? Corporation X 


What percentage interest does A own? 10 

Is A a 50 percent or more shareholder in a corporation which 
owns, actually or constructively, stock in Corporation 2? n 
C||||>num_a_own('Corporation_X', ‘Corporation Z', _242) 

How many shares of Corporation Z stock does Corporation _ X 
actually own? 50 


E 
C 

Do you want to consider applying the rules of Section 
318(a)(2) to Corporation X? (enter y or n) nr 


E 
¢ 

Does Corporation X own an option (or an option to acquire an 
option) to acquire the stock in Corporation Z? n 


<num_a ent: Corporation X', ‘Corporation Z', 50) 
>num_from('Corporation X', ‘Corporation Z', 0, 'A') 








<num_from(' Corporation _ xy ‘CORpOration: 2°) 0,: "A? ) 
>num —options(' Corporation _ x', ‘Corporation 2', _ 244) 








R >num options('Corporation X', ‘Corporation _Z', 0) 

E <num ~options(' Corporation X', 'Corporation Z', 0) 

E <num _from(' A‘, ‘Corporation __ 2', 50, ‘Corporation Y') 
C >num_to(' At; "Corporation Aaa: 

R >num to('A', ‘Corporation 2', _139) 

R >num to('A', ‘Corporation Z', 0) 

E <num_to('A', ‘Corporation Z', 0) 

C >num option('A', ‘Corporation Z', _140) 


Does A own an option (or an option to acquire an option) to 
acquire the stock in Corporation 2? n 





R >num_options('A', ‘Corporation Z', 0) 

E <num_ options('A', ‘Corporation Z', 0) 
E||<num_to('Corporation Y', "Corporation _ 1 Bernt ES 
C}|>num_options('Corporation X', ‘Corporation _ By ee) 


Does Corporation _Y own an option (or an option to acquire an 
option) to acquire the stock in Corporation 2? n 








R| | >num_options('Corporation_Y', ‘Corporation Z', 0) 
E| |<num_options('Corporation_Y', ‘Corporation Z', 0) 
E|<num_con_own('Corporation_Y', "Corporation Z', 50) 


The number of shares of Corporation Z stock actually owned by 
Corporation Y is 0. 


The number of shares of Corporation_Z stock constructively 
owned by Corporation_Y is 50. 


Do you want to try another Client? n 
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Listing Four 


WHY 

By Dean A. Schlobohm 

(c) Copyright 1984 by Dean A. Schlobohm. 
Version 1.0 

Date: 6/11/84 

Bugs: 


rules. 
2. Very crude English interface. 


0° dP dP JP GP dP DP dP dP OP OP OP 


loaded type "section318!<RET>" 


% preliminary functions 


append([],L,L) :- !. 
append( [X|L1],L2, [X 





appendall([(],[]}). 
appendall([H],H). 
appendall([H1,H2],L) :- append(H1,H2,L). 
appendall([H1,H2|T],L) :- 

append(H1,H2,X), 

appendall(T,2Z),!, 

append(X,Z,L). 
member(X,[X| ]) :- !. 
member(X,[_|¥]) :- member (X,Y). 


add(X) :- asserta(X),!. 
%* The Interface Program. 


section318 :- 
prompt(Old,' ‘'), 


nl ni, ni,ni,ni ;nisnl shi; niypni ni, nl, nin, Ai, at,nl;ni,ai,ni, 
print(' THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES 


OF'), 


print('STOCK A CLIENT CONSTRUCTIVELY OWNS AS A RESULT OF 


SECTION ‘), 


L3)) :- append(Ll1,L2,L3). 


THE SECTION 318(a) PROLOG PROGRAM WHICH ANSWERS HOW, 


All Rights Reserved. 


1. Only includes the Section 318(a)(1) family attribution 


print('318(a)(1) OF THE INTERNAL REVENUE CODE.'), 


Wi tl; 
ask(' Enter the name of the Client. 
,Ciient) ,nl, 


(One word) , 


ask(' Enter the name of the Corporation. 


,Corp),nl, 
add(corporation(Corp)),!, 

num family(Client,Corp,N_con,[],H) 
ot shes 


print (> The number of shares of ',Corp,' 


constructively'), 


(One word) 


stock 


HELP AND 


To Use: type "prolog sec318-1.pro<RET>" then after Prolog is 


print('owned by ',Client,' as a result of Section 318(a)(1) 


is. *) A cOny, 2" Vy 

het eTid.e by 

ask(' Do you want to know how I reached this conclusion? 
pe bet, 

SCZ. =. ¥). 3.02 = YT) )-pl, 


how(num_family(Client,Corp,N_con,W,H)),nl,nl, 


prompt(_,Old). 


individual(Client,W,H) :- 


prin(' ts..." ,.. Cliere,::<-an> individuals? ;:’); 


ratom(X),nl,!, 
respondl(X,individual(Client,W,H),W). 


respondl(y,individual(Client, ,[H]),_) :- 


concat([' FACT: ' Client;* is an individual.*‘],H), 


asserta(ind(Client, ,[H])),!. 
respondl (why, individual(Client,W,H),[]) :- 


print('This is what the Internal Revenue Code provides!'),!, 


rE, 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Four 


individual(Client,[],H),!. 

respondl (why, individual(Client, W,H),(P|T]) :- 
Prant (P?)>ni, 
aaa reeroae THs 

respondl(help,¥, Z) 3- 


print('Section 318(a)(1) only applies to individuals.'),!,nl, 


2 
respondl(n,individual(Client, ,[H]), ) :- 


concat([' FACT: ',Client,' is not an individual. 


asserta(non_ind(Client, ,[H])),!,fail. 
respond1(X,Y,Z2) :- 

print('I do not understand! Enter y, n, help, or 

Wyss 74 1, nk, 

Y% 


@ the rule for actual ownership 
num_a_own(C,C,0,W,[(H]) :- !. 
num_a_own(Client,Corp,N,W,[H]) :- 
print(' How many shares of ',Corp,' stock does 
prin('actually own? '), 
ratom(X),nl, 
integer(X), 
concat([' PACTS. ",Cilstent, *. actually -owtie "*;x,* 
shares.'],H), 
NK de 


num_a_own(Client,Corp,N,W,(H]) :- 


'],H), 


*,Client), 


Srint Error -- You must enter an integer!'),nl, 


num_a_own(Client,Corp,N,W,[H]). 
$ the rule of Secton 318(a)(1) 


num family(Client,Corp,N,W,H) :- 
get _rule(1,2Z), 
append(Ww, [z], X), 
individual (CLient,.%:¥) 1, 
spouse own(Client,Corp,Nl1,X,Q), 
family own(Client,Corp,N2,X,R), 
N is Nl + N2, 
appendall({ [2], ¥,0;7R) 8); 1. 

num _family(Client, ae eee o> 
get_rule(1,2), 
non “ind(Client, ,¥),1, 
append([Z],Y,H),!. 


* definition of spouse _own 


spouse own(Client,Corp,N,W,H) :- 
get_rule(2,2Z), 
append(W,[2],A), 
spouse(Client,Ll,A,Hl), 
append((Z],H1,H2), 
ind _own(Client,Corp,L1,N,H2,H3), 
appendall([(Z],H1,H3],H),!. 
spouse own(Client, ,0, _,[H]) :- concat([' FACT: 
has no spouse.'],H),!. 


% definition of family own 


family own(Client,Corp,N,W,H) :- 
get _rule(3,2), 
append(W,[2Z],A), 
family(Client,Ll,A,Hl), 
append([Z],H1,H2), 
ind. own(Client, Corp,L1,N1,H2,H3),!, 
family own(Client,Corp,N2,W,H4),!, 
N is Nl + N2, 
appendall([{(Z],H1,H3,H4],H),!. 
family own(Client, ,0, ,{H]) :- 


concat([' FACT: ",Client,' has no more family 


members.'],H),!. 


* -CLZORt., * 


% definition of ind own 

% note Section 318(a)(5)(B) is included since ind _Own does 
% not include num family. 

% does NOT include the other attribution rules! 
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ind own(Client,Corp,[],0,_,[]):- 
ind own(Client,Corp,[P],N,W,H) :- 
P /= Client,!, 
num _a_own(P,Corp,N,W,H1), 
ty 
H = Hl,!. 
ind _own(Client,Corp,_,0,W,W) :- !. 


% the definition of a family for purposes of Section 318 
spouse(C,[L],W,[H]) :- 
prin(’ Does ',C,' have a spouse? '), 
ratom(X);nl, 
respond2(X,spouse(C,([L],W,[H]),W),!. 


spousel(C,[(L],_,{H]) :- 


prin(' What is the name of the spouse? '), 
ratom(L),nl, 
concat([{' FACT: ',L,' is the spouse of ie CAP a: ae 


family(C,[L),W,(H]) :- 
pein(’ Does ',C,' have a child, grandchild or parent? '), 
ratom(X),nl, 
respond2(X,family(C,[(L],W,[{H]),W),!. 


family1l(C,(L],_,(H)) :- 
print’ What is the name of the child, grandchild or 
parent? '), 
ratom(L),nl, 
concat([' FACT: ‘',L,' is a family member of 
' 1 9 1 
rCy bd 1g) 


respond2(y,Relation(Client,Person, ,H),_) :- 

concat([Relation,'1'],Z), 

Z2(Client,Person, ,H),!. 
respond2(why,Relation(Client,Person, ,H),[]) :- 

print('This is what the Internal Revenue Code provides!'),!, 

ni; 

Relation(Client,Person,[],H),!. 
respond2(why,Relation(Client,Person, ,H),[P|T]) :- 

print(P),nl,!, 

Relation(Client,Person,T,H). 
respond2(help,spouse(Client,Person,W,H), ) :- 

print('A spouse does not include one who is legally separated 

from'), 

print(Client,' under a decree of divorce or separate 

maintenance.'), 

print('Section 318(a)(1)(A)(i).'), 

ye 

spouse(Client,Person,W,H). 
respond2(help,family(Client,Person,W,H),_) :- 


print('A child includes a legally adopted child. Section 

318 (ad(1)(B) "dy 

t eR 

family(Client,Person,W,H). 
respond2(n,Relation(Client, ,_,{H]),_) s- !,fail. 
respond2(X,Y¥,Z) 3- 

print('I do not understand! Enter y, n, help, or 
why.*'),?t;nl, 


% definition of rules to use in how and why 


get rule(1l,'An individual is deemed to own the stock owned by 
~ his family. Section 318(a)(1).'). 
get_rule(2,'A spouse is a family member. Section 
318(a)(1)(A)(1).'). 
get_rule(3,'A child, grandchild or parent 
is a family member. Section 318(a)(1)(A)(ii).'). 


% definition of “how" 


how(num_family(Client,Corp,N, ,{H|T])) :- 


print(' START OF EXPLAINATION'), 
nl, 
print t¢' The number of shares of ',Corp,' stock 


constructively owned'), 

print (‘by -";,Client,* as a result of Section 318(a)(1}) 1s." 
4, he on BP 

print('determined as follows:'),nl, 

print(H),!, 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Four 


howl(T),!. 
how(_) :- 
print(' I can not give you an explaination!'),!. 


howl([{]) :- 
nl, 


print END OF EXPLAINATION'), 
! 


howl({H|]T]) :- 
nl, 
print(H), 


howl (T), 
1 


Listing Five 


THIS PROGRAM WILL DETERMINE THE NUMBER OF SHARES OF STOCK A 
CLIENT CONSTRUCTIVELY OWNS AS A RESULT OF SECTION 318(a)(1) OF THE 
INTERNAL REVENUE CODE. 

Enter the name of the Client. (One word) Dean Schlobohm 

Enter the name of the Corporation. (One word) Corporation 

Is Dean _Schlobohm an individual? why 


An individual is deemed to own the stock owned by his family. 
Section 318(a)(1). 


Is Dean_Schlobohm an individual? why 

This is what the Internal Revenue Code provides! 
Is Dean _Schlobohm an individual? y 
Does Dean _Schlobohm have a spouse? why 


An individual is deemed to own the stock owned by his family. 
Section 318(a)91). 


Does Dean_Schlobohm have a spouse? why 
A spouse is a family member. Section 318(a)(1)(A)(i). 
Does Dean_Schlobohm have a spouse? why 
This is what the Internal Revenue Code provides! 
Does Dean-Schlobohm have a spouse? help 
A spouse does not include one who is legally separated from 
Dean Schlobohm under a decree of divorce or separate maintenance. 
Section 318(a)(1)(A)(i). 
Does Dean_Schlobohm have a spouse? y 
What is the name of the spouse? Mary Schlobohm 


How many shares of Corporation stock does Mary Schlobohm 
actually own? 300 


Does Dean Schlobohm have a child, grandchild or parent? why 


An individual is deemed to own the stock owned by his family. 
Section 318(a)(1). 


Does Dean_Schlobohm have a child, grandchild or parent? why 


A child, grandchild or parent is a family member. Section 
318(a)(1)(A)(ii). 
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Waltz Lisp is a very powerful and complete implementa- 
tion of the Lisp programming language. It includes 
, features previously available only in large Lisp systems. In 
E fact, Waltz is substantially compatible with Franz (the Lisp 
~ running under Unix), and is similar to MacLisp. Waltz is 
p perfect for Artificial Intelligence programming. It is also 
y most suitable for general applications. 


A Much faster than other TET Gc oer Lisps. © Long integers (up to 611 digits). Selectable radix © True dynamic 
2 character strings. Full string operations including fast matching/extraction. © Flexibly implemented random file access. 
A © Binary files. © Standard CP/M devices. © Access to disk directories. © Functions of type lambda (expr), nlambda 
4 (fexpr), lexpr, macro. ® Splicing and non-splicing character macros. ® User control over all aspects of the interpreter. 


BA ° Built-in prettyprinting and formatting facilities. ¢ Complete set of error handling and debugging functions including 
Ze \ user programmable processing of undefined function references. * Virtual function definitions. © Optional automatic 


loading of initialization file. © Powerful CP/M command line parsing. ® Fast sorting/merging using user defined 
comparison predicates. ¢ Full suite of mapping functions, iterators, etc. © Assembly language interface. * Over 250 
functions in total. ¢ The best documentation ever produced for a micro Lisp (300+ full size pages, hundreds of 
illustrative examples). 


Waltz Lisp requires CP/M 2.2, Z80 and 48K RAM (more recommended). All common 5"’ 
and 8" disk formats available. 


e 
Version 4.4 $] rok) . 
= includes Tiny Prolog 
written in Waltz Lisp.) 
ODE “Manual only: $30 (refundable with order). All 


we foreign orders: add $5 for surface mail, $20 for 
id Sli ha ods airmail. COD add $3. Apple CP/M and hard sector 
15930 SW Colony PI. 


ieee ee bE formats add $15. 
ortiand, 
Unix* Bell Laboratories. Call free T -800-LIP-4000 Dept. #11 


CP/M* Digital Research Corp. In Oregon and outside USA call 1-503-684-3000 





Circle no. 73 on reader service card. 





Pascal and C 


Programmers 


Your programs can 
now compile the 


FirsTime~ 


FirsTime is an intelligent editor that 
knows the rules of the language being 
programmed. It checks your statements 
as you enter them, and if it spots a 
mistake, it identifies it. FirsTime then 
positions the cursor over the error so 
you can correct it easily. FirsTime will 
identify all syntax errors, undefined 
variables, and even statements with 
mismatched variable types. In fact, any 
program developed with the FirsTime 
editor will compile on the first try. 





More than a syntax checker! 


FirsTime has many unique features 
found in no other editor. These powerful 
capabilities include a zoom command 
that allows you to examine the 
structure of your program, automatic 
program formatting, and block 
transforms. 


If you wish, you can work even faster 
by automatically generating program 
structures with a single key-stroke. This 
feature is especially useful to those 
learning a new language, or to those 
who often switch between different 
languages. 


Other Features: Full screen editing, 
horizontal scrolling, function key menus, 
help screens, inserts, deletes, appends, 
searches, and global replacing. 


Programmers enjoy using FirsTime. It 
allows them to concentrate on program 
logic without having to worry about 
coding details. Debugging is reduced 
dramatically, and deadlines are more 
easily met. 


FirsTime for PASCAL $245 
FirsTime for C $295 
Microsoft PASCAL Compiler $245 
Microsoft C Compiler $395 
Demonstration disk $25 


Get an extra $100 off the compiler when 
it is purchased with FirsTime. 
(N.J. residents please add 6% sales tax.) 


Spruce 


Technology Corporation 
110 Whispering Pines Drive 
Lincroft, N.J. 07738 
(201) 741-8188 or (201) 663-0063 


Dealer enquiries welcome. Custom versions 
for computer manufacturers and language 
developers are available. 


FirstTime is a trademark of Spruce Technology 
Corporation. = 
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Tax A d visor (Listing Continued, text begins on page 64) 
Listing Five 


Does Dean_Schlobohm have a child, grandchild or parent? why 


This is what the Internal Revenue Code provides! 


Does Dean _Schlobohm have a child, grandchild or parent? help 


A child includes a legally adopted child. Section 318(a)(1)(B). 
Does Dean_Schlobohm have a child, grandchild or parent? y 


What is the name of the child, grandchild or parent? 
Dean F Schlobohm 


How many share of Corporation stock does Dean F_ Schlobohm 
actually own? 100 


Does Dean Schlobohm have a child, grandchild or parent? n 


The number of shares of Corporation stock constructively 
owned by Dean_Schlobohm as a result of Section 318(a)(1) is 400. 


Do you want to know how I reached this conclusion? y 
START OF EXPLANATION 
The number of shares of Corporation stock constructively 
owned by Dean Schlobohm as a result of Section 318(a)(1) is 400, 


determined as follows: 


An individual is deemed to own the stock owned by his family. 
Section 318(a)(1). 


FACT: Dean _Schlobohm is an individual. 
A spouse is a family member. Section 318(a)(1)(A)(i). 
FACT: Mary Schlobohm is the spouse of Dean_Schlobohn. 
FACT: Mary Schlobohm actually owns 300 shares. 
A child, grandchild or parent is a family member. Section 
318(a)(1)(A) (ii). 
FACT: Dean _F Schlobohm is a family member of Dean_Schlobohm. 
FACT: Dean _F_ Schlobohm actually owns 100 shares. 
FACT: Dean Schlobohm has no more family members. 


END OF EXPLANATION 
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The Little Board™...$349* 


The world’s simplest and least expensive CP/M computer 







CP/M 2.2 


INCLUDED *UNDER $200 IN 


OEM QUANTITIES 


e 4 MHz Z80A CPU, 64K RAM, Z80A CTC, 2732 Boot ROM 
e Mini/Micro Floppy controller (1-4 Drives, Single/Double Density, 1-2 sided, 40/80 track) 
e Only 5.75 x 7.75 inches, mounts directly to a 5 1/4” floppy drive 

e 2. RS232C Serial Ports (75-9600 baud & 75-38,400 baud), 1 Centronics Printer Port 
© Power Requirement: +5VDC at .75A; +12VDC at .05A/On-board -12V converter 

e CP/M2.2BDOS e ZCPR3CCP e Enhanced AMPRO BIOS 


e AMPRO Utilities included: 

e read/write to more than 2 dozen other formats (Kaypro, Televideo, IBM CP/M86....) 
e format disks for more than a dozen other computers 

e menu-based system customization 

e BIOS and Utilities Source Code Available 

e SCSI/PLUS Adapter: 

e Mounts directly to Little Board e Slave !/O board control e Full ANSC X3T9.2 

e 16 bidirectional 1/O lines © $99/Quantity 1 


Av — | | Z80A is a registered trademark of Zilog, Inc. 


COMPUTERS. INCORPORATED CP/M is a registered trademark of Digital Research. 
67 East Evelyn Ave. e Mountain View, CA94041 « (415) 962-0230 « TELEX 4940302 


Distrioutor/Dealer/Reps 
Inquiries Invited 
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A Proffessional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 
Analyse your software for modification 
disassemble files as large as 64K 


Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8’’ SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA90056 
Voice: (213)649-3575 Modem: (213)670-9465 
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2 Megabyte SemiDisk! 


Have you been waiting on your slow floppy disk 
drives too long? SemiDisk Systems has a disk 
emulator for you! It'll put you in the fast lane, with 
ultra-fast data transfer, huge storage capacity, conve- 
nient battery backup, and a handy print spooler. 


Have you been waiting for a SemiDisk big enough 
to handle your large applications programs, files, and 
databases - all at once? Your wait is over. SemiDisk 
Systems is now delivering 2 megabytes of disk storage 
on a single board! 


512k, 1Meg and 2Megabyte SemiDisks are available 
for S-100 computers, (including the H/Z-100 operat- 
ing under Z-DOS), IBM PC, XT, & AT, the TRS-80 Mod- 
els II, 12, & 16, and the Epson QX-10. Once you've 
tried a SemiDisk you'll know why we say. . . 


Someday you'll get a SemiDisk. 
Until then, you'll just have to 


SemiDisk I, S-100 $995 
SemiDisk II, S-100 $1295 $2549 
IBM PC, XT, AT $945 $2499 
QX-10,QX-16 $799 $2499 
TRS-80 I1,12,16 $995 $2499 
Battery Backup Unit $150 


SEMIDISK 


SemiDisk Systems, Inc. 
P.O. Box GG, Beaverton, Oregon 97075 


503-642-3100 





Call $03-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS, and 503-649-8327 for CBBS/Aloha, all SemiDisk-equipped 
computer bulletin boards (300/1200 baud). SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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We'll 


giv 


yOur 


oftware a 
eileen | 


itself. 


We’re building a “demo data base” 
of available software for every retailer to access. 
We want to add yours to it. 





the m ket today - _ and new ones coming out every- 
day. There isn’t a retail computer store in America 
that can carry, let alone properly demo, them all. 
That is, up to now! 


We’ve Got the Right Connections to 
Demo Your Software 

We're giving every retailer in the country an 
opportunity to access and demo every piece of soft- 
ware available, provided it’s in our unique data base. 
To get in touch with your software, he merely dials 
into our system using any operating computer in 
his store. He screens through the menu of avail- 
able software packages within the customer's area 
of interest. The Program Finder displays informa- 
tion about you, your prices and how to order your 
product. 


Lousy-Demo Insurance 
Once a specific program has been selected for 
more information, a concise description of that 





ware product nena by you, pieeenting your 
product’s best features in your own words - it’s 
like having lousy-demo insurance. 


Us In the Middle Will Solve the Muddle 

If youre a retailer, the Program Finder will 
enable you to offer thousands of software pack- 
ages without the cost of maintaining a demo 
library. That frees up your salespeople to spend 
time selling products instead of wasting time 
learning how to demo them. 

If you're a publisher, the Program Finder will 
take your software public, immediately. We’ll give 
you instant awareness in hundreds of retail stores 
coast to coast. And that will mean instant sales. 

If you're interested, call Mitch Kolesaire, 
Director of Sales, at Software Information Systems, 
today. He’ll give you the whole story. It’s just what 
the industry has been looking for. Call him at 
201-882-9141. 





FINDER \. 





A product of Software Information Systems, Inc. 


Circle no. 69 on reader service card. 


Finally, 
a New DBMS Technology 


INFORMA is what NETWORKING is all about: 
INTERACTIVE REAL-TIME DATASHARING 


The experts say... 


Corvus Systems, Inc. TeleVideo Systems, Inc. 
“INFORMA is one of the finest multi-user Database “INFORMA is one of the finest, true multi-user 
Management Systems available for the OMNINET™ Local Database Management Systems we have seen run on 
Area Network.” the TeleVideo Personal Mini.™ 
Sid Arora, Third Party Marketing Manager Mark Calkins, Product Marketing Manager 
Novell | 3COM Corporation 
“Many of our Netware end users have found INFORMA to “The INFORMA DBMS is one of the best examples of 
be a very Xe aati lsc mV ae lela Dolio loye ky Management the benefits users achieve with multi-user network 
System.” software.” 
Rob Walton, Manager of Independent Software Robert Buchanan, Jr., Software Product Manager 
Development 


°FAST ° POWERFUL date) 4d KOR ie) © 


°10 Level Security 


e50 Keys (indexes) per record 






©8000 fields per record 
ei sec. access from 35,000 record file 
e255 screens per record 


a Ob obo obiccre moct-taew-tele Mal Eletoyer-Tl 
operations 


eIntuitive “Query by Example" 


REFERENCE 
HE 


eFull Formatting Reporter 


Incredible Introductory Offer 
NLIMITED PROCESSING Single-user LAN/ Multi-user 


INCORPORATED ¢$ 1 re) re) $ 5 ve ve 
8382 Baymeadows Road, Suite 8 : 
Jacksonville, Florida 32216 regularly $795 regularly $1495 
904) 731-8330 (800) 874-8555 
Hee 350754 (800) 874-4185 Available on over 20 operating systems including IBM's new PC NETWORK 
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by Ray Duncan 
Z-8001 CPU for S-100 Bus 


Yes, gentle reader, we occasionally do 
discuss some other kind of micropro- 
cessor besides the Intel family. This 
month, we’d like to announce the avail- 
ability of an S-100 bus Z-8001 CPU 
card called the Super Z-10 from Way 
Engineering. The CPU runs at 10 
MHz, is fully compatible with the 
IEEE 696 standard, and includes two 
on-board RS-232 ports, 32K of phan- 
tom EPROM, and a complete Forth 
monitor in EPROM. You can use the 
Z-8001 CPU card with Compupro 
high-speed static RAM boards and 
with most popular S-100 hard disk 
controllers. The introductory cost of 
the Super Z-10 CPU is $1000.00. 

Digital Research CP/M-8000 is 
available in a customized version for 
the Super Z-10 and includes the usual 
CP/M utilities (PIP, ED, DDT, and so 
on) as well as a C compiler, assembler, 
and linker. The BIOS is written in C 
and assembly language, and the source 
code is supplied. A disk-based Forth 
development system that runs under 
CP/M-8000 will also be available in 
the near future. CP/M-8000, which re- 
quires a hard disk and 256K of RAM, 
costs $350.00. For more information, 
contact Way Engineering at 2011 Tu- 
lip Tree Lane, La Canada, CA 91011 
(213) 245-1480. I am taking delivery 
of one of these systems within the next 
few days, so you should see a detailed 
report in a later column. 


MacFeedback 


Mike Cohen of the Bronx writes: “In 
the December 1984 issue, you incor- 
rectly state that the Macintosh 68000 
assembler requires two machines. It 
simply isn’t true, as I’ve used that as- 
sembler along with Consulair’s excel- 
lent Mac C compiler on a single Mac- 
intosh with no problems. True, Apple 
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16-BIT SOFTWARE TOOLBOX 


provides a debugger, which does re- 
quire two machines, but the Macsbug 
debugger (which is also provided on 
the same disk) requires only one ma- 
chine. It does have some problems in 
128K, since it can’t remain resident 
while the assembler or editor are being 
used. There are no such problems on a 
512K Macintosh, since I keep the full 
screen debugger resident while editing, 
assembling, and compiling programs. 

“Also, the statement that most high- 
level languages are ‘incredibly weak, 
bug-ridden, and slow’ is untrue of ev- 
erything other than MS-Basic. Mac- 
Pascal is one of the best versions of 
Pascal I’ve seen on any micro and rea- 
sonably fast—it can calculate 1500 
Factorial (using extended precision 
math) in an amazing 10 seconds. Con- 
sulair Corp.’s Mac C compiler is fast, 
powerful, and bug-free. It’s reasonably 
Unix-compatible, although using the 
Mac Toolbox library rather than 
STDLIB results in much smaller appli- 
cations (a text editor can be easily 
done in less than 4K). 

“To get things started with 68000 
software, here are two functions I 
wrote for use with the Mac C compiler 
to provide the standard file ‘Open’ and 
‘Save as’ dialogs. Most of the code was 
output directly from Mac C (particu- 
larly the in-line trap instructions and 
parameter saving). 

“The function OldFileName( Count, 
typeList,Reply) will display the open 
dialog, which lists all files of the speci- 
fied type. NewFileName(Default- 
Name,Reply) will display the save dia- 
log, with the default filename displayed 
for editing. Both functions return a zero 
if the request was cancelled, otherwise 
returning nonzero, and Reply (pointer 
to struct SFReply, as defined in Inside 
Macintosh and packages.h supplied 
with Mac C) will contain the filename 
as volume reference number of the file 
selected.” See Listing One (page 102) 


for Mr. Cohen’s contribution. 

Well, having tried or observed 
friends being tried by MacPascal, 
MacBasic, and MacForth, I’ll stand by 
my earlier statements about those lan- 
guages at least. They don’t meet my 
criteria for “insanely great.” On the 
Apple assembler, I was in error. I 
based my previous column on Apple’s 
own product announcement, which 
clearly stated “‘two machines re- 
quired,” and had not received the actu- 
al software when I submitted the col- 
umn to DDJ for publication. The 
Macsbug debugger, by the way, is in- 
sanely clever. When loaded, it simply 
requests some space on the heap and 
then hides itself there like any other 
data object, grabbing back control 
when an exception is detected. 


More Mac News 


As far as program development tools 
go for the Mac, there is hope for the 
rest of us after all. Mainstay of Agoura 
Hills, CA, has announced MacASM, a 
macroassembler for the Macintosh 
with an integral full-screen editor and 
resource compiler that costs only 
$125.00. I already have received sever- 
al favorable letters from DDJ readers 
about this product. You can contact 
Mainstay at (818) 991-6540. 

But the neatest news of all is the im- 
pending release of Neon from Kriya 
Systems, which we recently saw dem- 
onstrated at the Las Vegas Comdex 
Apple booth. This is a high-level, ob- 
ject-oriented language, a la Smalltalk, 
that will sell for only $150.00 and al- 
lows full access to the Macintosh’s 
Toolbox and graphics capabilities. 
Best of all, the package includes exten- 
sive source code, a 600-page manual, 
and a toll-free license to distribute 
Neon embedded in application pro- 
grams. Based on a 32-bit implementa- 
tion of Forth, Neon makes available to 
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the programmer the full spectrum of 
Forth commands and extensibility. 
The scheduled release date of Neon is 
February 15, so if all goes well, it 
should be available by the time you 
read this. You can reach Kriya at 505 
N. Lake Shore Drive, Suite 5510, Chi- 
cago, IL 60611. 

At the other end of the spectrum, we 
have the advertisements heralding 
“CP/M for the Macintosh” from [Q 
Software in Fort Worth, TX. Ill bet 
this advertisement made the Apple soft- 
ware gurus gnash their teeth and pull 
their hair out! I can’t imagine anything 
more antithetical to the whole MacMi- 
lieu than DIR, PIP, ED, and STAT. 


80286 Opcode of the Month 


One of the opcodes added in the 80286 
was the instruction called BOUNDS, 
which checks whether a number falls 
within limits and generates a hardware 
interrupt 5 if it does not. This nifty op- 
code was added for the sake of compil- 
er writers who wanted an efficient way 
to check the validity of an array index 
at runtime. Don’t rush to use this in- 
struction in your assembly language 
programming experiments on the IBM 
PC/AT, however, or you may get an 
unpleasant surprise. 

It seems that way back when the PC/ 
AT was just a gleam in the eye of the 
president of the Entry Systems Division 
(in fact, no such division even existed 
then), somebody at either IBM or Mi- 
crosoft assigned interrupt 5 to the Print 
Screen ROM BIOS routine. So, when 
the 80286 executes a BOUNDS instruc- 
tion, detects a value outside of the spec- 
ified range, and executes interrupt 5... 
you guessed it! To add insult to injury, 
the 80286 assumes that the interrupt 5 
handler will fix up the offending value, 
so it executes the BOUNDS instruction 
again. Of course, the ROM BIOS pro- 
gram to print the screen carefully saves 
and restores all the registers, including 
the one containing the nasty value that 
caused the interrupt, because it doesn’t 
know anything about BOUNDS excep- 
tions or fix ups or anything else for that 
matter. The result: one screen dump af- 
ter another until you give up and restart 
the computer. 

IBM has distributed a fix for this 
problem in its Software Support Center 
news bulletin. The fix involves installa- 
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Debugging Bugging You? 
Torpedo program crashes and debugging scien with 
debugging dynamite for the IBM PC... 


UP PERISCOPE! 







First, you install the hardware. 


The hardware’s a special memory board 
that fits in a PC expansion slot. Its 16K of 
write-protected memory contains 
Periscope’s resident symbolic debugger. No 
runaway program, however berserk it may 
be, can touch this memory! 


Then you UP PERISCOPE. 


Use Periscope’s push-button break- 
out switch to interrupt a running 
program ... even when the system’s 
hung! Periscope supports Assembly, 
BASIC, C and Pascal. In addition to the 
usual debugging capabilities, some of 
Periscope’s features are: 


Pa aennss 


Stop your system in 
its tracks at any time. 


Use symbol names instead 
of addresses. 


Run a program on one monitor and 
debug on another. 


Monitor your program’s execution 
with Periscope’s comprehensive 
breakpoints. 


Debug memory-resident programs. 


Put your time to better use. 


The Periscope system is $295. It carries a 30-day money-back 
guarantee and includes the memory board, remote break-out 
switch, debugger software, 100-page manual, and quick- 
reference card. The memory board is warranted for one year. A 
demonstration disk is $5.00. 


System requirements for Periscope are an IBM PC, XT or 
Compaq, PC-DOS, 64K RAM, 1 disk drive and an 80-column 
monitor. For MasterCard and Visa orders only, call 800/421- 
5300 (ext. R96) 24 hours a day. For additional information, call 
404/256-3860 from 9 AM to 5 PM Eastern Time. 


Get your programs up and running; 


uP PERIS E! 


Data Base Decisions / 14 Bonnie Lane /Atlanta, GA | 30328 
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#69 Volume VII, No. 7: 
IBM-PC Issue: CP/M-86 vs. MSDOS (A Technical Comparison)—Hi-Res Graphics on 
the IBM-PC—PDP-1802, Part Il—Review of \W/ord Processors for IBM. 


#70 Volume VII, No. 8: 
Argum “C” Command Line Processor—SEND/RECEIVE File Transfer Utilities— 
Intel’s 8087 Performance Evaluation. 


#71 Volume VII, No. 9: 

FORTH Issue: Floating-Point Package—H-19 Screen Editor—Relocating, Linking 
Loader—Z8000 Forth—Forth Programming Style—8086 ASCII-Binary Conver- 
sion Routines—CP/M Conditional SUBMIT. 


#72 Volume VII, No. 10: 
Portable Pidgin for Z80—68000 Cross Assembler, Part |—MODEM and RCP/Ms— 
Simplified G8000 Mnemonics—Nested Submits—8086/88 Trig Lookup. 


#73 Volume VII, No. 11: 

Wildcard UNIX Filenames—Tests for Pidgin—68000 Cross Assembler Listing, Part 
2—Adding More BDOS Calls—The Perfect Hash—BASIC Memory Manage- 
ment—Benchmarks for CP/M-86 vs. MSDOS, and the 8087. 


#77 Volume VIII, Issue 3: 

The Augusta P-Code Interpreter—A Small-C Operating System—6809 Threaded 
Code: Parametrization and Transfer of Controli—A Common-Sense Guide to 
Faster, Small BASIC—A Fundamental Mistake in Compiler Design—Basic Disk !/O, 
Part I. 

#78 Volume VIII, Issue 4: 

RECLAIM Destroyed Directories—Binar y Magic Numbers—8080 Fig-Forth Direc- 
tory & File System—SAY” Forth Votrax Driver—TRS-80 8080 to Z80 Translator— 
Basic Disk I/O, Part Il. 


#79 Volume VIII, No. 5: 

The Augusta Compiler—A Fast Circle Routine—Enhancing the C Screen Editor— 
Shifts and Rotations on the Z80—The SCB, TSX, and TXS Instructions of the 6502 
and 6800—MS-DOS vs. CP/M-86—Controlling MBASIC—The Buffered 
Keyboard—IBM PC Character Set Linker—Flip Utility for the IBM PC. 


#80 Volume VIII, Issue 6: 

Fast Divisibility Algorithms—B-Tree ISAM Concepts—CP/M BDOS AND BIOS 
Calls for C—Serial Expansion in Forth—Fast Matrix Operations in Forth, Part |I— 
Yes, You Can Trace Through BDOS—Julian Dates for Microcomputers—8088 Ad- 
dressing Modes—8088 Line Generator—CP/M Plus. 


#81 Volume VIII, Issue 7: 

The Augusta Compiler, continued—RED: A Better Screen Editor, Part |—Anatomy 
of a Digital Vector and Curve Generator—Fast Matrix Operations in Forth, Part 
I—The AGGHHHI Program—MBOOT Revisited—CP/M Plus Feedback—MS- 
DOS Rebuttal—68000 Tools—Sizing Memory on the IBM PC. 


#82 Volume VIII, Issue 8: 

Serial-to Parallel: A Flexible Utility Box—McWORDER: A Tiny Text Editor—And 
Still More Fifth Generation Computers—Specialist Symbols and I/O Benchmarks 
for CP/M Plus—CP/M Plus Memory Management—Zero Length File Test— 
PAUSEIF, QUITIF, and now SKIPIF—ACTxx Cross Assemblers. 


#83 Volume VIII, No. 9: 

FORTH ISSUE: Forth and the Motorola 68000—Nondeterministic Control! Words 
in Forth—A 68000 Forth Assembler—GO in Forth—Precompiled Forth 
Modules—Signed Integer Division—Some Forth Coding Standards—The Forth 
Sort. — 


#84 Volume VIII, No. 10: 

Unix to CP/M Floppy Disk File Conversion—A Small-C Help Facility—Attaching a 
Winchester Hard Disk to the S-100 Bus—Using Epson Bit-Plot Graphics—8086/88 
Function Macros—Auto Disk Format Selection—CP/M Plus Device Tables. 


#85 Volume VIII, Issue 11: 
A Kernel for the MC68000—A DML Parser—Towards a More W/ritable Forth 
Syntax—Simple Graphics for Printer—Floating-Point Benchmarks. 


#86 Volume VIII, Issue 12: 
Faster Circles for Apples—Cursor Control for Dumb Terminals—Dysan’s Digital 
Diagnositic Diskette—Interfacing a Hard Disk Within a CP/M Environment—The 
New MS-DOS EXEC Function. 


#87 Volume IX, Issue 1: 





A Structured Preprocessor for MBASIC—A Simple Window Package—Forth to 
PC-DOS Interface—Sorted Diskette Directory Listing for the IBM PC—Emulate 
WordStar on TOPS-20—More on optimizing compilers—The PIP mystery device 
contest. 


#88 Volume IX, Issue 2: 

Telecommunications Issue: Micro to Mainframe Connection—Communications 
Protocols—Unix to Unix Network Utilities—VPC: A Virtual Personal Computer 
for Networks—PABX and the Personal Computer—BASIC Language Telecommu- 
nications Programming—U.S. Robotics S-100 Card Modem. 


#89 Volume IX, Issue 3: 

RSA: A Public Key Cryptography System, Part I—Introduction to PUIC: Program- 
ming Language for Compilers—Program Design Using Pseudocode—More on 
Binary Magic Numbers—How fast is CP/M Plus?—CP/M 2.2 BIOS Function: 
SELDSK—The results of the Floating-Point benchmark. 


#90 Volume IX, Issue 4: 

Optimizing Strings in C—Expert Systems and the Weather—RSA: A Public Key 
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tion of a new interrupt 5 handler that 
does the following when it receives con- 
trol: 

(1) It uses the address pushed on the 
return stack to peek into the program 
that was executing to determine 
whether a BOUNDS opcode caused the 
exception. 

(2) 4: the cause -was,-in. fact,..a 
BOUNDS opcode, then it performs 
both the appropriate fix up and an in- 
terrupt return. 

(3) Otherwise, it transfers control to 
the Print Screen ROM BIOS routine. 
Not very aesthetically pleasing, but 
this fix seems to work. 


DOS 3.0 Differences 


In my last column, I discussed some of 
the documented differences between 
PCDOS 2.0 and DOS 3.0. Here’s news 
about one I missed. The unexplained 
failure of a once perfectly happy pro- 
gram prompted me to investigate the 
behavior of the Find First and Find 
Next functions (O4EH and O04FH, re- 
spectively). Much to my surprise, I 
found that the definition of the Find 
Next function has been changed in 
DOS 3.0 for no obvious reason. Fur- 
thermore, the change is not document- 
ed on DOS Technical Manual page vi, 
which is supposed to warn the pro- 
grammer about new or modified DOS 
function calls. 

Under DOS 2.0, function 4FH did 
not take any register arguments but as- 
sumed that the information from the 
previous call to Find First or Find 
Next was in the current DTA. Under 
DOS 3.0, the manual says that function 
4FH requires DS:DX to “contain the 
information from a previous ‘Find 
First’ call.’’ Because there’s no con- 
ceivable reason why function 4FH 
would want the original filename 
string address, I interpret this rather 
vague wording to mean that DS:DX 
should point to the same buffer that 
you set the DTA to before calling Find 
First. In the case of my program at 
least, the problem turned out to be not 
function 4FH at all but the fact that 
function 4EH does not return register 
AX = 0 for a successful call as it did 
under DOS 2.0. Apparently, under 
DOS 3.0, you absolutely must check 
the carry bit first; if it isn’t set, don’t 
assume that register AX will contain 
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anything in particular. 

Naturally, a day or two after I’d 
wasted the afternoon tracking down 
the above, I got a letter from Dan 
Daetwyler serving up the same infor- 
mation in his usual lucid way. He went 
on to write: “The DOS 3.0 writers fi- 
nally saw fit to give us an interface to 
the resident PRINT function. It’s de- 
scribed as interrupt 2FH in the man- 
ual. I had a critical need for this func- 
tion, and it was one of the reasons I 
quickly hopped on the V3.0 bandwag- 
on. So I read the manual and then tried 
to implement the function. The man- 
ual states that the AL register (and for 


some calls, some other registers) must 
be set up before the interrupt is issued. 
A set of values for AL are given, with 
specific details of the return values, 
other registers, etc. Not bad! 

‘“What’s the problem? Simple. No- 
where is the AH register mentioned. 
But it turns out that unless AH con- 
tains a binary one at interrupt time, 
you will have no chance at all of get- 
ting the thing to work! I found it out by 
the cut and try method, and lucked 
out. Since then I’ve disassembled the 
PRINT module and confirmed my 
‘guess.’ Not so incidentally, this inter- 
rupt is apparently going to be used for 


CP/M-80 C Programmers ... 


Save time 


... with the BDS C Compiler. Compile, link 
and execute faster than you ever thought 


possible! 


If you’re a C language 
programmer whose patience is 


wearing thin, who wants to spend 


your valuable time programming 


instead of twiddling your thumbs 


waiting for slow compilers, who 
just wants to work fast, then it’s 


BDS C features include: 


e Ultra-fast compilation, linkage and 
execution that produce directly 
executable 8080/Z80 CP/M command 
files. 

¢ A comprehensive debugger that 
traces program execution and 
interactively displays both local and 
external variables by name and 
proper type. 

e Dynamic overlays that allow for run- 
time segmentation of programs too 
large to fit into memory. 


Plus... 


Reviewers everywhere have 
praised BDS C for its elegant 
operation and optimal use of 
CP/M resources. Above all, BDS C 
has been hailed for it’s remarkable 
speed. 


BYTE Magazine placed BDS 
C ahead of all other 8080/Z80 C 
compilers tested for fastest 
object-code execution with all 
available speed-up options in use. 
In addition, BDS C’s speed of 


compilation was almost twice as 


fast as its closet competitor 
(benchmark for this test was the 
Sieve of Eratosthenes). 


“Performance: Excellent. 
Documentation: Excellent. 
Ease of Use: Excellent." 

InfoWorld 

Sortware Report Card 

“\..a superior buy...” 
Van Court Hare 
in Lifelines/The Software 





time you programmed with the 
BDS C Compiler. 

BDS C is designed for 
CP/M-80 and provides users with 
quick, clean software 
development with emphasis on 
systems programming. 


¢ A 120-function library written in both ¢ An attractive selection of sample 
C and assembly language with full 
source code. 


programs, including MODEM- 
compatible telecommunications, 
CP/M system utilities, games and 
more. 


e A thorough, easy-to-read, 181-page 
user's manual complete with 
tutorials, hints, error messages and 
an easy-to-use index — it’s the 
perfect manual for the beginner and 
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($10 membership fee — application 
included with package) that offers a 
newsletter, BDS C updates and 
access to public domain C utilities. 


Don’t waste another minute on 
a slow language processor. Order 
your BDS C Compiler today! 


“T recommend both the 
and the implementation 
by BDS very highly.” 
Tim Pugh, Jr. 
in Infoworld USA 


Complete Package (two 8” SSDD disks, 
181-page manual): $150 
Free shipping on prepaid orders inside 


VISA/MC, COD’s, rush orders accepted. 
Call for information on other disk 
formats. 


BDS C is designed for use with CP/M-80 
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DOS. 
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TURBO 
GRAPHICS™ 


for use with 


Borlands Turbo Pascal™ 








A comprehensive set of Pascal 
procedures and binary routines 
that includes most of the 
graphics capabilities found in 
BASICA in addition to several 
new graphics routines. 


MAJOR FEATURES 


(on medium resolution 
graphics screen) 


@ Draw large letters, circles, 
and lines in color. 


@ Create complicated graph- 
ics using DRAW “macros”. 


@ Create and use WINDOWS 
non-destructively. 


@ Paint enclosed areas. Get 
and Put screen memory. 


@ Scroll any portion of the 
screen up or down. 


WM Use the font editor to create 
letters and graphics 
characters. 


@ Combine features to create 
interesting animations. 


Catalog Numbers: 
UTIL-7100-IBM PC $39.95 
UTIL-100-IBM PCjr each 


Shipping and Handling: 
$5.00 each 
HHI 
| 


te 


Diversified Educational Enterprises, Inc. 
725 MAIN STREET 
LAFAYETTE, IN 47901 
317-742-2690 
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/ thax ©,cl,call@¢@j;int x,x1,xa[199]; 


Declarations: globals _ 


Char cO;int x@; 


Declarations: locals 
chart cl,cli,cal[1@@];int x1,xll,xallige¢i; 


Test Z8QA 4 MHz 286 6 MHz 

# BDS C vi.463 Cs6 vl. 33 Ratio $$statement 

msec msec 

1 5 1 5.08 ce a’: 

2 6 1 6.09 x=1; 

3 6 i 6.0¢ x=1234; 

4 15 4 3.73 if (c) x=1; 

5 i5 4 3.75 if (x) x=1; 

6 13 5 2.68 c <c= 1; 

7 Zi 5 4.29 c << 4; 

8 ii 4 4.15 x <<= 1; 

9 19 5 3.890 x <<e 4; 

18 a3 5 6.690 CG >>= 1; 

ik 69 5 13.890 Cf >>= 4; 

LZ 3i 4 7.75 x o>= £;: 

13 67 5 13.48 x >>= 4; 

14 8 2 4.89 c=ca[{@]; 

1S i7 1¢ 1.79 c=ca[c@]; 

16 8 2 4.89 x=xa[@]; 

1/ 22 6 3.6/7 x=xa[x@]; 

18 8 2 4.89 c=c@; 

19 8 1 8.98¢ Xx=x@; 

20 it 4 2.19 cacti; 

21 5 3 1.67 crt; 

ae 9 2 4.596 x=xtl; 

23 9 2 4.5@ x++; 

24 4 i 4.8¢ cl='a'; 

25 ii i 11.08 xl=1; 

26 a 1 11.88 x1=1234; 

27 2G 4 5.66 ificl)xl=i; 

28 27 4 6,75 if (xl) xi=1; 

29 16 5 3.2¢ cl <<= 1; 

39 24 5 4.82 cl <<e 4; 

3k 25 4 6.25 ¥l <<= 1; 

32 33 5 6.68 xl <<= 4; 

33 3] 5 7.46 cl >>= 1; 

34 72 5 14.4¢ Cl >>s 4; 

35 46 4 11.58 Kl >>= I; 

36 81 5 16.28 Ni >>e 4; 

a7 i2 2 6.980 cl=cal[(@]; 

Test Z8QA 4 MHz 286 6 MHz 

= BOS C vi.43 C86 vi.33 Ratio statement 

msec msec 

38 21 18 2.19 cl=cal[c@]; 

39 22 3 7.33 xl=xal[@]; 

40 33 6 5.58 xl=xal[x@]; 

41 8 Z 4.8¢ cl=c@; 

42 1s 2 7.58 x1l=x@; 

43 il 4 Z2.1> ci=cltl; 

44 4 3 1.33 clit; 

45 24 Pe 12.08 xXl=xitl; 

46 17 2 8.56 x1l++; 

47 253 18 14.06 movmem(&ca[@] ,&ca[5@],1); 

48 274 21 33.85 movmem(&ca[@],&ca[5@0],5); 

49 218 47 4,64 strepy (&ca[5@],&ca[@]); 

f*1 char*/ 
58 764 192 3.98 strcpy (&ca[50],&ca[2]); 
/*11 chars*/ 

51 14 14 1.0@ dummy () ; 

/*just returns*/ 

Notes: 

1. All times accurate to 1 microsecond. 

2. Z8@A tests were run at 4 MHz in an IMS International 886809 
CPM8@ system. 88286 tests were run at 6 MHz (no wait states) 
on a Lomas Data Products LDP2 MSDOS 2.1 system. 

3. For BDS-C both -o and -e optimizations were used. 

4. Test program generation and result reporting done with 
T/Maker. 


Figure 1 
Thomas Morgan’s Benchmarks 
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some of the TopView or file-sharing 
functions, and if you issue the inter- 
rupt with the AH register containing 
large values (OBBH range), you end up 
going to a totally different function. 
Undocumented, of course! 

“Tm getting a bit tired of getting 
manuals filled with good advice (it 
really is) on programming techniques 
and then finding out that the operating 
system violates these ‘good practices’ 
right and left. The PRINT module, for 
example, not only includes a signifi- 
cant array of self-modifying code 
(ugh), but it even ‘relocates’ (within its 
own area... why?) its interrupt ser- 
vice routines then does adjustment of 
the addresses to allow for the self-im- 
posed relocation! (Double ugh.) I’m 
sure I’ll eventually find out that there 
is a rationale for this, but I strongly 
suspect it will be a ‘cop-out’. I’ve never 
yet found a reason for flagrant viola- 

tion of good programming practices! 
] This case seems to be caused by a de- 
sire to save a couple of hundred bytes 
of memory. Well, everyone knows that 
DOS is growing fast enough, without 
wasted memory, but it also appears 
that the memory could have been 
saved by simple reorganization of the 
source module. If I ever get the cour- 
age to complete the disassembly, I'll 
find out!” 


Microsoft Assembler Bug 
of the Month 


The program in Listing Two (page 
102) will assemble without any errors; 
however, when you try to link it, you 
get the error message: 


Invalid Object Module. 
Input file: TEST.OBJ(A) 
pos: 00044 Record Type: AO 


In search of further enlightenment, we 
looked this message up in the DOS 3.0 
manual (page A-58) and found the 
advice: 


Explanation: LINK. Object mod- 
ule(s) was incorrectly formed or un- 
observed errors occurred during 
compilation. The disk may be bad. 
Action: Recompile the module to e1- 
ther the same or a different disk. 


There’s no explanation at all of what 
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the various record types for the Linker 
consist of or what “pos: 00044” is sup- 
posed to mean (if you knew the latter, 
you could probably figure out the of- 
fending instruction regardless of the in- 
scrutable error message). 

Repeated attempts at assembly and 
linking, on different disks, using differ- 
ent versions of DOS and/or the Linker, 
produced the same or other confusing 
error messages. To make a long story 
short, either the Assembler or the 
Linker can’t cope with a DD data dec- 
laration statement inside the invoca- 
tion of a structure macro. Our thanks 
to the boys at Microsoft for yet anoth- 
er interesting puzzle; we trashed an en- 
tire day figuring out that this was the 
only problem in a 5000-line graphics 
driver. 


Some 80286 Timings 


Thomas Moran writes: ‘“‘Here are 
some comparisons of individual C 
statement times using BDS C on a Z80 
and C86 on an 80286. Most of the C 
programs I run seem to be around 
three times as fast on the 286 as the 
Z80. (They run slightly faster on the 
Z80 than on the IBM PC.) 

“Perhaps the most interesting re- 
sults are (1) the C86 code for a subrou- 
tine call takes as long to execute on the 
80286 as the BDS C code on the Z80, 
and (2) strepy is a horror in both cases. 
One often codes *p+-+ ... for scan- 
ning and copying since C has no lan- 
guage constructs to handle strings. 
Perhaps a smart compiler could realize 
that a subroutine could be replaced by 
a few machine-repeated move or scan 
instructions.”” Thomas’s timings are 
presented in the figure on page 100. 


16-Bit Software Toolbox 
Installment 


For my own code contribution this 
month, I’m providing two 8086 assem- 
bly language subroutines of general in- 
terest (Listing Three, page 104). The 
first, BIN _TO_ASC, converts a signed 
32-bit integer to an ASCII string in the 
desired radix (the radix must be in the 
range 2-36). The upper part of the 
32-bit value is passed in DX and the 
lower part in AX; the radix is passed in 
CX; and SI contains the last byte ad- 
dress of the area to store the converted 





ASCII string. It is the responsibility of 
the user to make sure that the destina- 
tion buffer is large enough for any 
number that might be printed in the 
desired radix. 

DIVIDE is a general purpose 32-bit 
by 16-bit unsigned divide subroutine. 
The 32-bit dividend is passed with the 
upper part in DX and the lower part in 
AX; the divisor is passed in CX. The 
32-bit quotient is returned in DX:AX, 
and the remainder in BX. Contrast this 
with the 8086’s built-in unsigned DIV 
instruction, which also divides DX:AX 
by a 16-bit value but can return only a 
16-bit quotient; this is inadequate for 
an output conversion routine that must 
extract digits from a 32-bit argument. 
The code for DIVIDE may look a little 
obscure at first, but it will become 
clearer if you simply consider each of 
the registers DX, AX, and CX as a sin- 
gle digit. Then you'll find that it works 
exactly like normal long division done 
by hand. 

DD} 


(Listings begin on next page) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 


PROFESSIONAL 


BASIC 


JUST BECAME AFFORDABLE 


$99 


“outstanding” Ray Duncan- Dr. Dobbs’ Journal 


Use 640k (e.g. 250 x 250 array) 
Dynamic Syntax Checking 

19 Debugging Windows 

Run PC BASICA Programs 


OPTIONAL: 8087/80287 Support — $50 


> Morgan Computing Co., Inc. 
gre (214) 739-5895 


10400 N. Central Expwy.. Suite 210 
Dallas, TX 75231 
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16-Bi f Toolbox (Text begins on page 96) 
Listing One 


Mike Cohen's standard file "Open" and "Save" dialogs for the Macintosh 


;Consulair Mac C Compiler 1.90 
STRING FORMAT @ 
INCLUDE M68KLIB.D 


OldFileName: 


© 
’ 


NewFileName: 


@l: 


Listing Two 


Demonstrates obscure Microsoft assembler/linker bug. 


dseg 


102 


CLR.L 
LINK 


MOVEM.L 


PEA 
DC.W 
MOVE .W 
MOVE.W 
CLR.L 
CLR.L 
MOVE.W 
MOVE.L 
CLR.L 
MOVE.L 
MOVE.W 
DC .W 
MOVE.L 
DC .W 
MOVE.L 
MOVE.B 
EXT 
EXT .L 
RETX 
XREF 


CLR.L 
LINK 


MOVEM.L 


PEA 

DC .W 
MOVE.W 
MOVE.W 
PEA 
MOVE.L 
CLR.L 
MOVE.L 
MOVE.W 
DC.W 
MOVE.L 
DC .W 
MOVE.L 
MOVE.B 
EXT 
EXT.L 
RETX 
DCB 

DC .B 
XREF 


title 
page 


segment para public 


me USE) 

A6,#-2G 
D@/D1/D2,-16 (A6) 
-20(A6) 

SA874 ;GetPort 
#80,-(SP) 

#80,-(SP) ;location 
- (SP) ; Prompt 

- (SP) ;FileFilter 
D@,-(SP) ;numTypes 
D1,-(SP) ;TypeList 
- (SP) ;D1lgHook 
D2,-(SP) ;Reply 
#2,-(SP) 

SAQEA ;Pack3 
-20(A6) ,-(SP) 

SA873 ;SetPort 
-8(A6) ,A@ 

(AQ) ,D@ 

D@ 

D@ 

OldFileName 

iS FP) 

A6,#-16 

D@/D1,-12 (A6) 
-16(A6) 

SA874 ;GetPort 
#80,-(SP) 

#80,-(SP) ;location 
@l ;Prompt 
DO@,-(SP) ;OrigName 
-(SP) ;DigHook 
Dl,-(SP) j;Reply 
#1,-(SP) 

SAQEA ;Pack3 
-16(A6) ,-(SP) 

SA873 ;SetPort 
-8(A6) ,A@ 

(A@) ,D@ 

D@ 

D@ 

8 

‘Save As:' 


;routine selector for GetFile 


sroutine selector for PutFile 


NewFileName 


"Show Structure Bug' 


60,132 


"DATA' 


End Listing One 


(Continued on page 104) 
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S-100 EPROM PROGRAMMER 
EPROM - 32 


e Field-proven board meets IEEE-696 standard. 
e Programs 1K through 32K (byte) EPROMs. 
e Textool zero-insertion-force programming socket. 
e EPROM is programmed through |/0 ports and can be verified 
through 1/0 ports or located in memory space for verification. 
e Programming voltage generated on-board. 
e Personality Modules adapt board to EPROMs: 
PM-1—2508, 2758 PM-3—2732, 2732A 
2916, 2716 PM-4—2564 PM-8—27128 
PM-2—2532 PM-5—2764 PM-9—27256 
* sore hacked ae M-compatible control software includes 
ast programming algorithm. 
e One year warranty. $269.95* 
(A & T) 


PM-6—68764 


MicroDynamics 
EO SPE, SESE ETD, 


Corporation 
Suite 245 e 1355 Lynnfield Road « Memphis, TN 38119 
(901)-682-4054 


* Price includes EPROM-32, documentation and two Personality Modules(specify). Additional 
Modules—$7.95. Control software on 8" SSSD diskette—$29.95, UPS ground—$2.00, UPS 
air—$4.00, COD—$1.65, foreign add $15.00, VISA & MASTERCARD welcome. 


See Dec. 1983 Microsystems for a review of the EPROM-32. 
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(LISP) 


Artificial Intelligence Language 
UO-LISP Programming Environment 
The Powerful Implementation of LISP 
for MICRO COMPUTERS 


LEARN LISP System (LLS.1) 
(see description below $39.95 


UO-LISP Programming Environment 
Base Line System (BLS.1) $49.95 


Includes: Interpreter, Compiler, 
Structure Editor, Extended Numbers, 
Trace, Pretty Print, various Utilities, 
and Manual with Usage Examples. 
(BLS.1) expands to support full system 
and products described below. 


UO-LISP Programming Environment: The Usual LISP Interpreter Functions, 
Data Types and Extensions, Structure & Screen Editors, Compiler, Optimizer, LISP & 
Assembly Code Intermixing, Compiled Code Library Loader, I/O Support, Macros, 
Debug Tools, Sort & Merge, On-Line Help, Other Utility Packages, Hardware and 
Operating System Access, Session Freeze and Restart, Manual with Examples expands to 
over 350 pages. Other UO-LISP products include: LISPTEX text formatter, LITTLE 
META translator writing system, RLISP high level language, NLARGE algebra system. 
Prices vary with configurations beyond (BLS.1) please send for FREE catalog. 
LEARN LISP System (LLS.1): Complete with LISP Tutorial Guide, Editor Tutorial 
Guide, System Manual with Examples, Full LISP Interpreter, On-Line Help and other 
Utilities. LEARN LISP fundamentals and programming techniques rapidly and effectively. 
This system does not permit expansion to include the compiler and other products listed 
above. 

LISP Tutorial Support (LTS.1): Includes LISP and Structure Editor Tutorial 
Guides, On-line Help, and History Loop. This option adds a valuable learning tool to the 
UO-LISP Programming Environment (BLS.1). Order (LTS.1) for $19.95. 
REQUIRES: UO.LISP Products run on most Z80 computers with CP/M, TRSDOS or 
TRSDOS compatible operating systems. The 8086 version available soon. 

TO ORDER: Send Name, Address, Phone No., Computer Type, Disk Format Type, Package 
Pnce, 6.5% Tax (CA residents only), Ship & Handle fee of $3.00 inside U.S. & CN, $10 outside 
U.S., Check, Money Order, VISA and MasterCard accepted. With Credit Card include exp. date 
Other configurations and products are ordered thru our FREE catalog. 


Northwest Computer Algorithms 
P.O. Box 90995, Long Beach, CA 90809 (213) 426-1893 
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Conix 


UNIX™ Technology for CP/M™ 


ConlX can provide any 48K+ CP/M-80 compatible system 
with many advanced capabilities of UNIX. You'll be amazed 
at what your 8-bit micro can do now! ConIX features include: 





I/O Redirection and Pipes (uses memory or disk), multiple 
commands per line, full upper/lower case and argument 
processing, Auto Screen Paging. Programmable Function Keys, 
improved User Area Directory manipulation, Command and 
Extension (Overlay) Path Searching, “Virtual” disk system, 
8Mb Print Spooler, extensive preprocessed “Shell” command 
programming language, 300+ variables, over 100 built-in 
commands, Math Package, 22 new BDOS SysCalls, Archiver 
(compacts files for disk space savings of over 50%), On-Line 
Manual System, and much more! Uses as little as 1/2K RAM! 
Runs with CP/M for true data and software compatibility. 
Installs quickly and easily without any system modifications. 


The ConIX Operating System 
List Price: $165 


Price includes Instructional Manual, 8° SSSD disk, and free support. 
5'/"’ format conversions available. To order, contact your local dealer 
or buy direct and add shipping: $4.50 UPS, $10 Canada. $25 overseas 
COD $2 extra (USA only). NY State residents add sales tax. 


Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station, NY 10462 
Tel. (212) 652-1786 


Dealer inquiries invited! 
UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper Ind. 


Circle no. 22 on reader service card. 
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16-Bi f Toolbox (Listing Continued, text begins on page 96) 


Listing Two 


fred struc ;declare a structure macro 
dd Le aay 3622} ;consisting of a double-word 
fred ends ;data declaration 
harry fred ce ;invoke the structure macro 
dseg ends 
cseg segment para public ‘'CODE' 
pgm proc far 
ret ;this is a Zen program... 
pgm endp 
cseg ends 
end pgm 


Listing Three 


General purpose Binary-to-ASCI 


Convert 32 bit binary value to 
Copyright (C) 1984 Ray Duncan 


Call with DX:AX 
CX 
SI 


radix 
last byte o 


the string 


Destroys AX, BX, CX, DX, and S 


UO’ se Se se we Me Se Ne SO Ne Ne NO Ne 


in _to_ asc proc near 


mov byte ptr [si],'@ 

Or dx,dx 

pushf 

jns binl 

not dx 

not ax 

add ax, t 

adc dx,@ 
binl: 

mov bx,ax 

Or bx ,dax 

jz bin3 

call divide 

add is, oe 

cmp |e fi Ora,” 

jle bin2 

add b1l,'A'-'9'-1 
bin2: mov [si},bl 

dec si 

jmp binl 
bin3: 

popf 

jns bin4 

mov byte ptr [si],'- 
104 


End Listing Two 


I conversion and unsigned divide subroutines. 


ASCIiL-stringd. 


signed 32 bit value 


f area to store resulting string 


(make sure enough room is available to store 


in the radix you have selected.) 
Le 


;convert DX:AX to ASCII. 

;force storage of at least 1 digit. 

' 

;test sign of 32 bit value, 

sand save sign on stack. 

;jump if it was positive. 

;it was negative, take 2's complement 
;Of the value. 


;divide the 32 bit value by the radix 
;to extract the next digit for the 
;forming string. 

;is the value zero yet? 


;yes, we are done converting. 

;no, Givide by radix. 

sconvert the remainder to an ASCII digit. 
;we might be converting to hex ASCII, 
;jJump if in range @-9, 

;correct it if in range A-F. 

;store this character into string. 
;back up through string, 

;and do it again. 

;restore sign flag, 

;wasS Original value negative? 

7no, Jump 


;yes,store sign into output string. 
' 
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bin4: ret 


bin_to_asc endp 


Qy we Se we Me Me Ne Ne SO Ne Me NO MO Ne Ne Ne Me Se SO 


Copyright (C) 


routine returns 


Call with DX:AX 


;back to caller. 


General purpose 32 bit by 16 bit unsigned divide. 


1984 Ray Duncan 


This must be used instead of the plain machine unsigned divide 
for cases where the quotient may overflow 16 bits (for example, 
dividing 180,900 by 2). If called with a zero divisor, this 
the dividend unchanged and gives no warning. 


32.6it: dividend 








CX = divisor 
Returns DX: AX quotient 
BX = remainder 
CX = divisor (unchanged) 
ivide proc near ; Divide DX:AX by CX 
JCXzZ divl ; exit if divide by zero 
push ax ; @:dividend upper/divisor 
mov ax,ax 
sor ax ,ax 
div ox 
mov bx,ax ; BX = quotientl 
pop ax ; remainderl:dividend lower/divisor 
div ox 
xchg bx,dx ; DX:AX = quotientl:quotient2 
Givi: ret ; BX = remainder2 
divide endp 
' ; 
; End Listings 
| C Source Code , ES PES Pe Ss SL) OS SS, 
The Tools 1 
RED ; e lools’ « 
Full Screen Text Editor f\ , 
4 i= ; , ; 
IBM PC, Kaypro, CP/M 80 and CP/M 68K systems. = wie Ou N eed | 
Z eae | 
e RED is fast! RED uses all of ¢ RED comes with a Reference u , : 
your terminal’s special func- Card and a Reference Manual f To C You Thru. d 
tions for best screen response. that provides everything you Soe 
Now the %gardWax Applications Programmers Toolkit provides — 


RED handles files as large as 
your disk automatically and 


quickly. 


e RED is easy to use for writers 
or programmers. RED’s com- 
mands are in plain English. 


¢ RED comes with complete 
source code in standard C. 
RED has been ported to main- 
frames, minis and micros. 


aor 


edward k. ream 


f 





To order: 


Either the BDS C compiler or the Aztec Cll compiler is required for CP/M 80 
systems. Digital Research C compiler v1.1 is required for CP/M 68k systems. No 
compiler is required for IBM or Kaypro systems. 


Specify both the machine desired (IBM, Kaypro or CP/M) and the disk format 


described (8 inch CP/M single density or exact type of 5% inch disk). Wézard Ware 
Send a check or money order for $95 ($105 U.S. for foreign orders). Sorry, | do Fee 830 South Second St. - Box 648 
NOT accept phone, credit card, or COD orders. Please do not send purchase orders | eee Louisville, KY 40201, USA Ss 


unless a check is included. Your order will be mailed to you within one week. 


Dealer inquiries invited. 


need to use RED immediately. 

everything you need to increase your C programming productivity. 
_ APT" features include: 

@ COMPLETE SOURCE CODE (over 5000 lines!) 

@ File handling with direct & keyed access 

® Screen and Report Generators, with full screen handling for your programs 


¢ RED is unconditionally 
guaranteed. If for any reason 
you are not satisfied with RED 
your money will be refunded 





promptly. ® Generic Terminal Driver for portable code 
® String math functions, and string manipulation routines 
RED: $95 ® Reference Manual on Disk (over 50 pages) 


@ Tutorial Manual (over 25 pages) with Source for Mailing List Manager 
@ A host of useful Utilities, Database and File Editors 
@ Available for Lattice C, Mark Williams C, DeSmet C, BDS C, others. 


Also Available: C‘STARTER Toolkit, great for learning C!! Includes: Customized 
APT, DeSmet C Compiler, and “Programming in C on the IBM-PC” (200 pages) 


Manual: $10 


SO we ass 


1’ 


Call or write today for 


fod eh inf ae Be Tete Werplama ss. ob oe acs Sia et'.e Gos wb VR $495 | - 

ee or 5 BPC SE: vere 2 oes a 3 hak bot ieee es $395 Se 

Edward K. Ream AUT C eae 02 ee, ngs phic sa ben Fe Bs $395 iY | 
C-Starter (binary APT, DeSmet Compiler and Book)......... $295 

be De EPSON MG Adaai aly 5 ce $ 50 


Madison, WI 53705 
(608) 231-2952 


**Detailed Brochures on request** 


*Manual Cost will be applied if APT purchased within 
30 days ($10 re-stocking charge.) U.S. funds only, please. 


: MS-DOS/Microsoft, Lattice C/Lattice, Inc.. MWC86/Mark Williams Co., DeSmet C/C Ware, CI-C86/Computer Innovations, Inc.. BDS C/BD Software, 
DR-C/Digital Research, WizardWare, APT, C-Starter/Shaw »: American Technologies. 


Call (502) 583-5527 
Ask for APT™ or C-Starter, or Send Check to: 


Shaw * American Technologies 


Trademarks: 


<a 


Si“ 


(C.O.D. and Foreign Orders - Add $5 Shipping/Handling) 
References: Bank of Louisville, Citizens Fidelity Bank, Louisville Chamber of Commerce J 


<a) eo; a ee ee SS I Oct ee es 





Fi ct 





Circle no. 86 on reader service card. 
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Announcing 


BOUND VOLUME 7 


Every 1982 Issue Available For Your Personal Reference. 





Vol. 1 1976 


The material brought together in this 
volume chronicles the development in 
1976 of Tiny BASIC as an alternative 
to the “finger blistering,’ front-panel, 
machine-language programming 
which was then the only way to do 
things. This is always pertinent for bit 
crunching and byte saving, language 
design theory, home-brew computer 
construction and the technical history 
of personal computing. 

Topics include: Tiny BASIC, the (very) 
first word on CP/M, Speech Synthesis, 
Floating Point Routines, Timer 
Routines, Building an IMSAI, and 
more. 


Vol. 2 1977 


1977 found DDBJ still on the forefront. 
These issues offer refinements of 
Tiny BASIC, plus then state-of-the-art 
utilities, the advent of PILOT for micro- 
computers and a great deal of mate- 
rial centering around the Intel 8080, 
including a complete operating 
system. Products just becoming avail- 
able for reviews were the H-8, KIM-1, 
MITS BASIC, Poly Basic, and NIBL. 
Articles are about Lawrence Liver- 
more Lab’s BASIC, Alpha-Micro, String 
Handling, Cyphers, High Speed Inter- 
action, I/O, Tiny Pilot & Turtle Graph- 
ics, many utilities, and even more. 


Vol. 3 1978 


The microcomputer industry entered 
its adolescence in 1978. This volume 


brings together the issues which 
began dealing with the 6502, with 
mass-market machines and 
languages to match. The authors 
began speaking more in terms of 
technique, rather than of specific 
implementations; because of this, 
they were able to continue laying the 
groundwork industry would follow. 
These articles relate very closely to 
what is generally available today. 
Languages covered in depth were 
SAM76, Pilot, Pascal, and Lisp, in addi- 
tion to RAM Testers, S-100 Bus Stand- 
ard Proposal, Disassemblers, Editors, 
and much, much more. 


Vol. 4 1979 


This volume heralds a wider interest 
in telecommunications, in algorithms, 
and in faster, more powerful utilities 
and languages. Innovation is still 
present in every page, and more 
attention is paid to the best ways to 
use the processors which have 
proven longevity—primarily the 8080/ 
Z80, 6502, and 6800. The subject 
matter is invaluable both as a learn- 


ing tool and as a frequent source of 
reference. 


facing a Micro to a Mainframe—more 
than ever! 


Vol. 5 1980 


All the ground-breaking issues from 
1980 in one volume! Systems soft- 
ware reached a new level with the 
advent of CP/M, chronicled herein by 
Gary Kildall and others (DDJ’s all-CP/ 
M issue sold out within weeks of 
publication). Software portability 
became a topic of greater import, and 
DDJ published Ron Cain’s immedi- 
ately famous Small-C compiler— 
reprinted here in full! 

Contents include: The Evolution of 
CP/M, a CP/M-Flavored C Inerpreter, 
Ron Cain’s C Compiler for the 8080, 
Further with Tiny BASIC, a Syntax- 
Oriented Compiler Writing Language, 
CP/M to UCSD Pascal File Conversion, 
Run-time Library for the Small-C 
Compiler and, as always, even more! 


Vol. 6 1981 


1981 saw our first all-FORTH issue 
(now sold out), along with continuing 
coverage of CP/M, small-C, telecom- 
munications, and new languages. 
Dave Cortesi opened “Dr. Dobb’s 
Clinic” in 1981, beginning one of the 
magazine’s most popular features. 


6809. 





YES! (] Please send me the following Volumes of Dr. Dobb’s Journal. 
" {[] ALL 7 for ONLY $165, a savings of over 15%! Vol. 1 MeO a ee 
Vol. 2 K B27 75 se i eee 
Payment must accompany your order. Vol. 3 ERT er 5 ae 
Please charge my: L] Visa (] MasterCard _]| American Express Vol. 4 Be WEE MO a a 
lenclose {J Check/money order Vol. 5 Mj) PEUIS Ft 
eRe Vol. 6 OE. 3 Sa eT Ra a 
ANH 2 Sia oh eration Deter snk eo Oe Vol. 7 re. 1 Se poe ee 
Signature All 7 Xx $165.00 ee gt tS ee 
Name Address 
City State Zip 


Mail to: Dr. Dobb’s Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 


) 
Main subjects include: Programming Highlights: information on PCNET, the 
Problems/Solutions, Pascal, Informa- ec union takin 
tion Network Proposal, Floating Point compiler, a syst Nn ‘ ba aia 
Arithmetic, 8-bit to 16-bit Conversion, ia face e. ie ah edna i 
Pseudo-random Sequences, and Inter- guag y 
Sub-total aE ad 
Postade (oe 
Postage & Handling Must be included with order. 

Please add $1.25 per book in U.S. ($3.25 each surface mail 

101 Allow 6-9 weeks for delivery. outside U.S. ) Foreign Airmail rates available on request. 


TOTAL $ 





BRINGS 


SCIENTIFIC PASCAL 


by Harley Flanders 

A refreshing, stimulating book on 
the most rapidly growing structured 
programming language. The book is 
filled with over 400 examples and 
exercises with graded levels of diffi- 
culty. The state-of-the-art programs 
involve approximation, zeros of func- 
tions, differentiation and integration, 
differential equations, matrices, char- 
acteristic roots, fast Fourier trans- 
form, permutations—anything and 
everything connected with scientific 
programming and numerical analysis. 


1984 576 pages $21.95 (soft) 
THE PROGRAMMER’S CP/M 
NOTEBOOK 


by David E. Cortesi 

Displays the process of designing 
and building software for the popular 
CP/M operating system. Twelve 
complete, useful utility programs are 
contained in the book. For each 
program the author analyzes the 
user’s needs and develops a verbal 
specification, then designs the 
program in a high-level language, and 
presents the assembly language code 
that implements the program. 
1983 225 pages $17.95 (soft) 


PARALLEL PROGRAMMING 


IN ANSI STANDARD ADA 


by George Cherry 

A thorough introduction to parallel 
programming and algorithms in the 
military and civilian standard 
language, Ada. Uses graphical means 
(Petri nets) to introduce the basic 
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RESTON BOOKS TO YOU 


concepts of concurrency, synchroni- 
zation, and rendezvous. Illustrates the 
lanugage features with complete 
programs rather than program frag- 
ments. Treats task pipelines, excep- 
tion handling in parallel programs, 
and algorithms that are optimized for 
the number of processors available. 


1984 224 pages $21.95 (hard) 
SYSTEM PROGRAMMING 
UNDER CP/M-80 


by Lawrence E. Hughes 

A thorough introduction to 8080/ 
8085 assembly language program- 
ming. Contains a great deal of data 
on how to program under the CP/M 
operating system. Gives detailed 
information on installing and modify- 
ing CP/M. Includes actual usable util- 
ity programs for CP/M, along with a 
detailed analysis of each. 


1983 208 pages $17.95 (soft) 
A USER FRIENDLY GUIDE 
TO CP/M 


by James T. Perry and 
Robert F. McJunkins 

This guide is perfect for first-time 
users—taking them from an introduc- 
tion to CP/M, to creating new dBASE 
commands. In between, the reader 
will find topics such as built-in 
commands, copying a large number 
of files, system files, user area, copy- 
ing selected parts of files, introduc- 
tion to dBASEIl, altering the data 
base contents, and more. 


1983 150 pages $16.95 (soft) 






PERSONAL PASCAL: 
COMPILED PASCAL FOR THE 


IBM PERSONAL COMPUTER 


by David E. Cortesi and 
George W. Cherry 

Prepares the reader to use the 
Pascal programming language and 
compiled Pascal on the IBM Personal 
Computer in particular. Illustrates 
stepwise refinement to help the 
reader complete designs. Gives care- 
ful descriptions and illustrations of 
Pascal syntax to aid the reader in 
avoiding common syntactic errors. 
Emphasizes clarity of design and 
protability of code throughout. 
1984 432 pages $17.95 (soft) 


THE SMALL-C HANDBOOK 


by James E. Hendrix 

A complete description of the 
Small-C programming language and 
compiler for those who are already 
programming in other languages. 
Section 1 covers program translation 
concepts, presenting a survey of 
machine language concepts, assem- 
bly language, and the use of assem- 
bler loaders and linkers. Section 2 
introduces the Small-C language, and 
Section 3 describes the compiler 
itself, covering I/O concepts, standard 
functions, using the compiler to 
generate new versions of itself, and 
more. In addition, several appendices 
offer valuable reference information 
on Small-C programming. 


1984 272 pages $17.95 (soft) 





Mail coupon to: Dr. Dobb’s Journal/2464 Embarcadero Way/Palo Alto, CA 94303 


Yes! Please send me the book(s) in the quantities I’ve indicated below: 


—— Scientific Pascal, soft, R6931-1, $21.95 
—— The Programmer’s CP/M Notebook, soft, R5641-7, $17.95 
—— Parallel Programming in ANSI Standard ADA, hard, R5434-7, 
$21.95 
— The Small-C Handbook, soft, R7012-9, $17.95 
——— Personal Pascal: Compiled Pascal for the IBM Personal 
—— Computer, soft, R5522-9, $17.95 
System Programming Under CP/M-80, soft, R7456-8, $17.95 
—— A User-Friendly Guide to CP/M, soft, R8117-5, $16.95 





L) Enclosed is my payment of 
order. 
CJ VISA 
Card No.: 
Expiration date: 


in check or money 





L) MasterCard 


Name: 
Address: 
Con cS Sa a I re 





Please allow 4-6 weeks for delivery. Add $1.50 per book for 
shipping and handling charges. 101 


(OVID (GRLIN G3 


by Robert A. Blum 


Steve Russell of SLR Systems, the au- 
thor of Z8OASM, recently sent along a 
disk containing a problem report that 
he had sent to DRI. The disk contained 
a program to demonstrate the problem 
he had found with CP/M Plus and the 
RSX that he had written to correct the 
problem. 

While installing for a construction 
company an accounting package that 
was written in a high-level language, 
Steve encountered inconsistent results 
when he attempted to determine the 
current disk file sizes. Although the 
software publisher proved to be of little 
help, Steve did learn that this strange 
occurrence seemed also to appear un- 
der MP/M but never with CP/M 2.2— 
and that the disk files in question were 
being accessed with random I/O BDOS 
calls. 

After a great deal of probing and 
prodding into how CP/M Plus was re- 
sponding to the application program’s 
system calls, Steve found a problem 
with the way the CP/M Plus file system 
was treating random read errors. This 
situation was compounded further by 
the fact that errors sometimes were not 
reported at all and that incorrect data 
was being placed into the FCB. 

The disk I received contained a sam- 
ple data file, 257 sectors (records) in 
length, and a program FIND that 
would produce the problem. When 
run, the FIND program showed that 
the random record logic of CP/M Plus 
became confused on the second consec- 
utive random read to an unallocated 
sector of an existing extent other than 
extent 0. However, if an interceding 
valid read is done or a read to an unal- 
located record of an unwritten extent is 
done, the problem does not occur. 

The FIND program (Listing One, 
page 112) tries to read several sectors 
from the file XXX. Each read attempt 
is documented by displaying the record 
number in hex and the return error 
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code in A. The FCB contents then are 
dumped to find out what is happening. 

Follow along in Figure | (page 109) 
as each read is documented. The first 
read is to record zero, which is an allo- 
cated record of extent zero; it correctly 
completes with a zero return code and 
valid FCB contents. The second read is 
to record number 257, which is one 
record beyond the last record written 
to the file. The return code for this 
read is reported correctly as one, indi- 
cating that the last read operation was 
on an unallocated record of a written 
extent. The third read is to an allocat- 
ed record of extent zero, providing 
once again a valid error return code of 
zero and correct FCB contents. 

The error occurs on the second of 
the next two reads. The fourth read is 
to record number 500, an unallocated 
record of a written extent. The read is 
flagged correctly as an error, and the 
FCB contents are also correct. Now, 
the error occurs. The fifth read is to 
record number 260, which again is to 
an unallocated record of a written ex- 
tent. This time, the error return code is 
reported incorrectly as zero, or no er- 
ror, and the record count field of the 
FCB incorrectly contains 80h. In reali- 
ty, both the return code and the record 
count field should have been one. 

So, the problem seems to happen 
only when two consecutive random 
reads to an unallocated record of a 
written extent are attempted. To cor- 
rect the problem, Steve wrote an RSX 
(Listing Two, page 114) to monitor the 
BDOS function calls made by the ap- 
plication program. When a random 
read is found, the return error code is 
examined, and when a nonzero error 
return code is found, a dummy read to 
record zero of the same file is done. 
This interceding read keeps the incor- 
rect error return code and FCB con- 
tents from resulting, should the same 
type of read occur a second consecutive 





time. You might want to examine Fig- 
ure 2 (page 110), which displays the 
results of the FIND program after the 
installation of the RSX. 


CP/M Plus: PIP Patch 


Gary Silvey of Digital Research re- 
cently sent along a patch for the CP/M 
Plus version of PIP to set the verify op- 
tion permanently on, as I described for 
CP/M 2.2 in the November issue of 
this column. As before, DRI does not 
recognize this patch, even though it 
comes from a DRI employee. Also, the 
patch is known to work only with the 
specific version of the PIP program 
mentioned here. Before setting out to 
install this patch, make a backup copy 
of your disk in case it becomes neces- 
sary to return to your original version 
of EYP. 

Figure 3 (page 112) lists the proce- 
dure that I followed to install the verify 
patch on my system. The first step is to 
verify that your PIP program is version 
3.0; this is the only version of PIP with 
which this patch is known to work suc- 
cessfully. To verify your version num- 
ber, load PIP.COM into memory with 
either SID or DDT and display memory 
between 210h and 21fh; the version 
number, which should be 3.0, should 
begin at 21Ch. The next step is to 
change the single byte at 1001h from 
1Fh to 37h. The final step is to save the 
modified program back onto disk under 
a new name ready for testing. 

To ensure that I had entered my 
patches correctly, I timed how long it 
took to copy the same file with an unal- 
tered version of PIP using the verify op- 
tion and again with the newly altered 
version of PIP. The two times were 
practically identical, which was verifi- 
cation enough for me. 

Gary also sent along the timings 
from his testing of the changes; these 


| once again point out how much quicker 
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disk I/O is under CP/M Plus. with the patched PIP and 21:71 sec | on the banked system with the V op- 
For your information, I copied | with unpatched PIP. On my banked | tion yielded 18:25 sec. DD} 


HELPHLP to a file called H to check | system, copying the same file with the 


(Listing begins on page 112) 


out the PIP version 3.0 patch. Under | patched and unpatched PIP yielded 


my nonbanked version of CP/M Plus, it | times of 8:00 and 18:24 sec, respective- 


Reader Ballot 
Vote for your favorite feature/article. 


took 13:42 sec for the copy to complete | ly. Using the unpatched version of PIP Circle Reader Service No. 196. 
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READING RECORD 0000, ERROR CODE RETURNED INA IS 00. 

36 HEX BYTES OF FCB CONTENT AFTER ATTEMPTED READ 
O00 58 58 58 20. 20 20 20 20 20 20 20.00 02 80 80 

06 07 O08 09 OA 0B OC GD OF OF 10.1112 13 14. a 
O00 00 OO 00. 






































READING RECORD 0101, ERROR CODE RETURNED IN A 

36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED REZ 
OO 58 58 58 20 20 20 20 20 20 20 20 02 02 80 0: 
16 00 00 00 00 00 O00 60 00 00 00 O00 0O 00 O00 o 
O] O01 O1 OO . 


READING RECORD 0064, ERROR CODE RETURNED IN A IS 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
00 58 58 58 20 20 20 20 20 20 20 20:00 02 60 60 
06 07 08 09 OA OB OC OD OE OF 10 11 12 13 eo 
64 64 00 00 | 





READING RECORD O1F4, eeeon Gone RETURNED IN A 
36 HEX BYTES OF FCB CONTE! 
O00 58 68 56 20 20 20 20 
16 00 00 00 00 00 900 00 | 
74 F4 01 00 


S AFTER ATTEMPTED RI 3 
20 20 26 03 02 80 oO : 
a 00 00 00 00 00 


READING RECORD 0104, E 
36 HEX BYTES OF FCB ¢ 
00 58 58 58 20 20 20 2 
16 00 00 00 00 00 00 60 
04 04 01 00 


READING RECORD 0000, ERRC 
36 HEX BYTES OF FCB CONT! 
OO S68 S8 $8 20 20 20 ces 
O6 O7 68 O09 OA OB OC OD- 

60 00 00 00 


READING RECORD 0100, ERROR 
0 00 00 00 00 00 
RETURNED IN A Is 


0 20 02 02 60 01. 
0 00 00 00 00 00 

















16 00 00 00 00 00 00 00 00 
04 04 01 00 


RETURNED IN A IS. 
TER ATTEMPTED READ 





READING RECORD 0202, ERR( 
36 HEX BYTES OF FCB CONTI 
O60 58 58 68 20 260 26 20 0 20 02 02 80 01 
16 00 00 00 00 00 00 06 0 00 00° 00 00 00 
02 02 62 co : _ - 





READING RECORD 0104, ERROR CODE. RETURNED IN A is OL 
36 HEX BYTES OF FCB CONTENTS APTER ATTEMPTED READ 
OO 58 58 58 20 20 20 20 2 6 20 20 02 02. 80 mi 

16 00 00 00 O00 00 of O00 00 00 00 00 OC 00° ye 

04 04 O1 OO _— 








‘Figure 1 sual Before RSX Installed. at: 2 - S / 
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PROGRAM PACKAGING DISKS, SUPPLIES 


e IBM style cloth binders and slips for 514 x 814. 
Imprinting available in small quantities. 

e Vinyl binders for 514 x 814 and 81% x 11 with 
clear pockets on front and spine for labeling. 

¢ Vinyl packaging in several styles. 

e Floppy disk pages for 51/4, and 31% disks. 

¢ Continuous paper for IBM size binders with 
3 holes punched. 2500 sheets for only $40.00. 
¢ 514, DS/DD bulk disks—$149/100. No labels 
or envelopes. Blank & printed envelopes & 
labels available. 

¢ Low prices on packaged disks—BASF, 
KODAK, Elephant, Memorex. Disks for IBM AT 
and Mac in stock. 




















e Many other products. Call or write for 
FREE CATALOG. Fast service. 


Anthropomorphic 


Systems, Limited 
Department DDJ 
376 E. St. Charles Road 


Lombard, IL 60148 
Cos Baten. (312) 629-5160 







Circle no. 11 on reader service card. 


IN-CIRCUIT EMULATOR 
For 8050, 8049 and 8048 IC’s 





For Hardware/Software Design the E232-48 
replaces the target microcomputer for complete 
emulation under control of the host computer. 
It emulates all of the above uC’s plus their 
ROM-less and CMOS versions. It’s features are: 

* Real time emulation up to 11 Mhz. 

*® Full 4K Emulation Memory. 

* Hardware Breakpoints. 

* In-line Assembler and Disassembler. 

* Upload, Download & Terminal mode drivers 

for |BM-PC, CP/M-80 and CP/M-86 are included. 

Cross Assemblers for 8048 series and other uP’s 
running on the above host systems-From........... $150 


SIGNUM SYSTEMS 
726 Santa Monica Blvd. 
Santa Monica, CA 90401 (213) 451-5382 


Circle no. 106 on reader service card. 


Graphs without 
Graphics? 


No need for screen graphics. Publishable 


graphs on your dot matrix printer. 


Easy to Use. No programming. 
CP/M 80 or 86, MS-DOS, or PC-DOS. 
Excellent Manual. Most disk formats. 


Data Plotter ™ 


THEORETICAL 


xxx EMmPPIRICAL 


DISPLACEMENT 





XK MILLISECONDS 
Lark Line Graphs & Shipping. ..... add $3 


Scatterplots. .$69 6 rcide y 
™ i Sand 
Software Bar Graphs & Canidaec es add $6 
7 Cedars Road Pie Charts... .$69 specify which Printer 
Both for .... ™ 
Caldwell, NJ 07006 Both for . . . .$99 cok anata 
Circle no. 57 on reader service card. 
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READING RECORD 0000, ERROR CODE RETURNED IN A IS 00. 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
OO 538 58 58 20 20 20 20 20 20 20 20 00 O02 80 80 
O6 O07 O08 O09 OA OB OC OD OE OF 10 11 12 13 14 15 
00 00 00 OO 


READING RECORD 0101, ERROR CODE RETURNED IN A 1S O1 
36 HEX BYTES OF FCB CONTENTS AFTER ALTEMPIED READ 
OO S68 56 98 20 20 20 20 20 20 20 20 CO O02 80D 80 

OG 07 O08 O09 OA OB OC OD OE OF 10 11 i2 if i4 i565 

UO Gi O71 00 


READING RECORD O0O64, ERROR CODE RETURNED IN A IS OO 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
00 56 58 58 20 20 20 20 20 20 20 20 00 O2 80 80 

O06 07 08 O09 GA OB OC OD CE OF 10 11 Ii2 ig 14 15 

64 64 00 O00 


READING RECORD O1F4, -ERROR CODE RETURNED IN A IS O1 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
OO 58 58 58 20 20 20 20 20 20 20 20 00 Oz &O 6O 

O06 OT O08 09 OA O83 OC OD OF CF 10 li iz if 14 15 

OO F4 O1 OO 


READING RECORD 0104, ERROR CODE RETURNED IN A IS O01 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
O00 58 58 58 20 20 20 20 20 20 20 20 00 02 80 60 

O6 07 08 09 OA OB OC OD OF OF 10 11 lz 13 14 i5 

00 04 O1 OO 


READING RECORD 0000, ERROR CODE RETURNED IN A IS 00 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
OO S58 58 58 20 20 20 20 20 20 20 20 00 O2 GO &0 

OG 07 08 02 0A OB OC OD OF OF 10 11 12 13 14 15 

00 00 OO OO 


READING RECORD 0100, ERROR CODE RETURNED IN A IS 00 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
O00 58 58 88 20 20 20 20 20 20 20 20 02 O02 80 O01 

16 00 00 00 00 00 00 00 00 00 00 00 00 OO O00 OO 

00 00 O01 OO 


READING RECORD 0104, ERROR CODE RETURNED IN A [IS 01 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
00 58 S58 5@ 20 20 20 20 20 20 20 20 00 O2 80 8&0 

O6 O7 08 039 OA OB OC OD OF OF 10 i1 i2 13 14 15 

00 04 O1 OO 


READING RECORD 0202, ERROR CODE RETURNED IN A IS 04 
36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED KEAD 
OO $8 58 $8 20 20 20 20 20 20 20 20 00 O02 80 60 

O06 07 O08 O03 OA OB OC OD OF OF 10 if i2 i3 14 15 

OZ O02 Oz O00 


READING RECORD 0104, ERROR CODE RETURNED IN A IS O1 
36 HEX SYTES OF FCB CONTENTS AFTER ATTEMPTED READ 
OO 58 58 S56 20 20 20 20 20.20 20 20 00 O02 $80. 80 

O06 Gi 08 CS OCA OB OC OD OF OF 10 13 i2 13 14 15 

00 04 O01 OO 


Figure 2 
Results of Random Read After RSX Installed. 
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Powerful in circuit emulation, priced 
well within your grasp. That’s NICE." 


NICE may be only 3” square and 12” thick, but it hands you full speed, 
Wer lGetilematliirine mee coummliorillitisceye! functions, software pag akpaunts, ; 
all memory addresses and all I/O ports. 

Just plug NICE directly into the target MP socket and any RS2: 
for system development, troubleshooting, vedas or | 
eemistesclomeustelisele oct % 


$498". 

Call in your order ee using 
your VISA or Mastercard num- 
ber: (800) NICOLET outside 


CA, or (415) 490-8300 in CA. 
Or send your 
check or 

money 

order 

to NICE, 

i rere) Cee 

etwliuesercen, 
Corporation, 

201 Fourier 

serie fee © 
mont, CA 94559. 
“Payment by check, moncy _ 

order, VISA or Ma oo 

NICE is a tradem: rk of Ni ce 

Paratronics orpora 

@Z80 is a ur 
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Due to popular demand, Dr. Dobb’s Journal has reprinted its most- 
asked-for C compiler articles by Ron Cain and J. E. Hendrix, each for 
only $5.00. 
Ron Cain’s C compiler from sold-out 1980 issues #45 and #48 includes 
“A Small C Compiler for the 8080s” and “Runtime Library for the Small 
C Compiler.” 
The J. E. Hendrix reprint includes part two of “Small-C Compiler v.2” 
from sold out issue #75 and completes the first part of the compiler 
article from issue #74 which is included in Dr. Dobb’s Bound Volume 7. 
To Order: Enclose $5.00 for each copy with this coupon and send to: 
Dr. Dobb's Journal, 2464 Embarcadero Way, Palo Alto, CA 94303 
Outside U.S., add $2.00 per copy for shipping and handling. 
Please send copy(ies) of the Ron Cain Reprint, and 

copy(ies) of the J. E. Hendrix reprint to: 


Name 


Address 


City State Zip 
ALL REPRINT ORDERS MUST BE PREPAID. 





RUN/C:” 
Finally, 
a C Interpreter 


Available NOW for only $149.95! 


Finally, a painless introduction to 
the C language. With RUN /C: 
The C Interpreter you 
can create and run C language 
programs in an environment as 
easy to use as BASIC. 


RUN /7CisC for the rest of us. 
It is arobust implementation of 
standard K&R. RUN /C is for 
both the beginner and profes- 
sional. 


RUN /C includes full floating 
point, 8087 support, structures, 
unions, casts and more than 100 
built-in C functions. 


With RUN /C you get all this 
with acommand structure mod- 
eled after BASIC’s using familiar 
terms such as EDIT, RUN, LIST. 
LOAD, SAVE, TRON, SYSTEM, etc. 


Since RUN /C is a true inter- 
preter it means that C programs 
can be written, tested and run 
within a single protected envi- 
ronment. It is a teaching tool and 


a source code debugger. 
Here's more good news. . 


e Great documentation: a 400- 
page, easy-to-read manual 
filled with executable 
programs 

e Array-index and pointer 
bounds checking 

e Variable-trace and dump 
diagnostics PLUS an integral 
program profiler 

e Full buffered and unbuffered 
file 1/O 

e Printer and asynch support 

e Forking to your favorite full 
screen editor with automatic 
return to RUN /C with 
your edited program 

e System Requirements: 

IBM® PC or compatible with 
PC-DOS 2:0:;0r MS™-DOS 2:0: or 
greater with ANSISYS. 


Get things right the first time 
with RUN /C: 
The C Interpreter.™ 


For immediate delivery or more 
information, call: 


1-800-847-7078 
(in NY. 1-212-860-0300) 
or write: Lifeboat Associates™ 
1651 Third Avenue 
New York, NY 10128 


RUN/C is a trademark of Age of Reason Co. 
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“Water ee. 

_- 2300 2300 0100 corr 
eae le 21F _ 

oe 


aoe record(s) written, 
. #GO— 


Figure 3. 


Pip verify patch 


C. P vg M Excha nge (Text begins on page 108) 
Listing One 


TITLE DEMONSTRATE FAULTY RANDOM RECORD ERROR 
DFCB EQU SCH 


- THE SAMPLE FILE NAME IS RATHER GENERIC, !XxXxX' 
; TO RUN THIS PROGRAM, JUST TYPE A>FIND XXX 


START 


-FIRST OPEN THE FILE 


. 
’ 


LD DE,DFCB 
LD C,OFH 
CALL 5 


;DID: IT OREN- 7 


INC A 
RET Z ;NOPE, RETURN 


: OK, MAKE SURE HIGH BYTE OF RANDOM RECORD IS 0 


XOR A 
LD (DFCB+35),A 
LD SP,MYSTACK 


-FIRST, LETS SET UP A STRING OF RECORD NUMBERS TO READ 
:-WITH A RANDOM READ TO SEE IF THEY REACT DIFFERENTLY 


. 
Cy 


LD HL,RECORD_TABLE ; TABLE OF RECORD NUMBERS 
LD A,TABLE_ LEN ; LENGTH OF TABLE 
LOOP 1 

PUSH AF ; SAVE COUNT 

LD E, (HL) ;LOAD RECORD # DESIRED 

INC HL 

LD D, (HL) 

INC HL 

PUSH “AE ; SAVE TABLE POINTER 

EX DE,HL 

LD DE, RECNUM ; ENCODE RECORD NUMBER TO HEX-ASCII 

CALL HEXWOUT 

LD (DFCB+33),HL ; SET RECORD NUMBER 

LD DE,DFCB 

LD Cen ;RANDOM READ 

CALL 5 

LD DE,RESULT ; ENCODE VALUE RETURNED IN A 

CALL HEXOUT 
CALL PRINT_LINE ;PRINT LINE ON THE CONSOLE 
POP HL ;RESTORE POINTER AND COUNTER 
POP AF 

112 
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DEC A 


IR NZ, LOOP1 ; IF MORE RECORDS, JUMP 
;FINISHED....... 
IP 0 
RECORD TABLE 
DW 0 ;FIRST READ RECORD ZERO 
DW 257 ;READ RECORD 257 (ONLY 0-256 EXIST...ERROR REPORTED 
DW 100 ;READ RECORD 100 (MAIN PURPOSE, BACK TO EXT 0) 
DW 500 ;READ RECORD 500 (ONLY 0-256 EXIST...ERROR REPORTED 
DW 260 ;READ RECORD 260 (ONLY 0-256 EXIST...OOPS! NO 
RB!) 
DW 0 ;BACK TO VALID EXT INFO 
DW 256 ;LAST RECORD OF FILE, FOUND 
DW 260 ;READ 260, ERROR RETURNED 
DW 514 ;READ RECORD 514 ("" "  ,NOTE, UNWRITTEN EXT 
DW 260 ;READ RECORD 260 (" " "  ,THIS TIME ERROR 
REPORTED) 
TABLE LEN EQU (S-RECORD TABLE) /2 
HEXWOUT 
LD A,H 
CALL HEXOUT 
LD A,L 
HEXOUT 
PUSH AF 
RRA 
RRA 
RRA 
RRA 
CALL HEX2 
POP AF 
HEX2 
AND OFH 
OR 30H 
CP 3AH 
IR C,HEX3 
ADD Z 
HEX3 
LD (DE) ,A 
INC DE 
RET 
PRINT LINE 
LD DE,RECLINE 
LD C,9 
CALL 5 


;NOW PRINT OUT THE FCB 


’ 


LD 
LD 
LD 
LOOPS 

LD 
INC 
CALL 
INC 
DJINZ 
LD 
LD 
JP 


FCBASC 


FCBASCII 


DB 
DB 
DB 


RECLINE 
RECNUM 
RESULT 


DS 
MYSTACK 


END 


HL, DFCB 
DE,FCBASCII 
B,36 


A, (HL) 

HL 

HEXOUT 

DE 

LOOPS 
DE,FCBASC 
c,9 

5) 


ODH, OAH 


'36 HEX BYTES OF FCB CONTENTS AFTER ATTEMPTED READ' ,ODH,OAH 


36*3,20H 
ODH,OAH,'S' 


ODH,OAH, 'READING RECORD 


' , ERROR CODE RETURNED IN A IS '! 


! S ' 


64 
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End Listing One 


(Listing two begins on next page) 
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CP. VA M Ex C. hang e (Listing Continued, text begins on page 108) 
Listing Two 


TITLE RANDOM READ RSX SOURCE LISTING 


;START OF PREFIX 


DB 0, 0;,0,0,0,0 ;SERIAL NUMBER 
JP START 

NEXT JP $=-$ 

PREV DW 0 

REMOVE DB ¢) 

NONBNK DB 0 

RSXNAME DB "TRACE EM' 
DB 0,0,0 


;START OF RSX CODE 


START 


LD A,C ;PUT BDOS FUNCTION CODE IN A 
CP 21H ;IS IT A RANDOM READ 
JR NZ ,NEXT ;SKIP IF NOT RANDOM READ 
START2 
; DO READ, BUT IF IT RETURNS AN ERROR CODE 1 
; SEEK SECTOR O BEFORE GOING ON TO CORRECT POSSIBLE 
; INACCURACY OF SUBSEQUENT RANDOM READ 
LD (USERSAVE) ,SP ; SAVE USER STACK POINTER 
LD SP ,MYSTACK ;LOAD A LOCAL STACK POINTER 
PUSH DE ; SAVE FCB ADDRESS 
CALL NEXT ; ALLOW REQUESTED OPERATION TO COMPLETE 
; THE USER REQUESTED OPERATION IS NOW COMPLETE 
CP 1 ;WAS THE RETURN CODE DATA UNAVAILABLE 
JR NZ,STARTS8 ;NO -- BYPASS OUR FIX 
; SAVE ALL THE USER INFORMATION AND PREPARE FOR SEEK TO SECTOR ZERO 
EX (3) ; AG ;SAVE HL AND LOAD FCB ADDRESS 
LD DE, 33 ;GET INDEX TO RO POSITION OF FCB 
EX DE,HL 
ADD HL,DE- ;ADD RO POSITION INDEX TO FCB ADDRESS 
PUSH HL ;SAVE ON STACK 
XOR A ;PUT ZERO INTO A 
LD C, (HL) ;PUT FCB RO BYTE INTO C 
LD (HL),A ;ZERO FCB RO BYTE 
INC HL ;POINT AT R1 BYTE 
LD B, (HL) ;PUT EFUB Rie BYTE INTO: B 
PUSH BC ;SAVE BC ON STACK 
LD (HL),A ;ZERO FCB R1 BYTE 
INC HL tSPOINE. AT: R2 BYTE 
LD B, (HL) ;PUT FCB R2 BYTE INTO B 
PUSH BC ;SAVE BC ON STACK 
LD (HL),A ;ZERO FCB R2 BYTE 
LD C,21H ;GET RANDOM READ FUNCTION CODE 
CALL NEXT ;EXECUTE IT 
; NOW RESTORE ALL THE ORIGINAL USER INFORMATION 
POP AF ;PULL RO, R1, AND R2 INFO FROM THE STACK 
POP BC :? 
FGP HL ;PULL THE FCB ADDRESS FROM THE STACK 
LD (HL) ,C ;PUT THE ORIGINAL RANDOM READ INFO BACK 
INC HL ; INTO THE FCB 
LD (HL),B ; 
INC HL = 
LD (HL),A ties 
LD A,1 ;RESTORE THE ERROR CODE 
POP HL ;CORRECT STACK 
STARTS 
LD SP, (USERSAVE) ;RESTORE USER STACK POINTER 
RET ;AND BACK WE GO 
USERSAVE DW fe) 
DS 64 
MYSTACK 
END End Listings 
114 
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FOR THE BEST OF US... 


THE CYPHER’ iit. 


A COMPLETE 68000 & Z 80 
SINGLE BOARD COMPUTER SYSTEM 
WITH ULTRA-HIGH-RES GRAPHICS!! 





@ 68000 & 280 DUAL PROCESSORS (BEST OF BOTH @ ULTRA HIGH RESOLUTION GRAPHICS. 128 
WORLDS') PROGRAMMABLE UP TO 1024 X 1024 RESOLUTION 

@ 256K TO 1 MEGABYTE MEMORY (4154 9R 41256 ORAM) (NEC 7220. GREAT FOR CAD SYSTEMS') 

@DOUBLE DENSITY FLOPPY DISK CONTROLER (8 OR @REAL TIME CLOCK (MULTITASKING CAPABILITY!) 
5*.”. WD 2793) @ TWO CHANNELS OF D/A AND A/D. 12 BIT 
RESOLUTION (MUSIC' ROBOTICS') 

@ 16K TO 64K MONITOR EPROM 

@ 4K TO 64K STATIC RAM 

@ PROGRAMMABLE BAUD RATE GENERATOR 


@ OMA CONTROLLER FOR FAST Ase TRANSFERS TO 
FROM VIDEO MEMORY (INT 8237 

@ 2 RS232 SERIAL PORTS (ZSIO) 

@24 BIT mere qe ae FOR 280 

@4 LAYER PCB ( 

@ RUNS CP-M-80 AND CP-M-68K 


@ PARALLEL ASCII KEYBOARD INPUT 
@FULL 68000 EXPANSION BUS (60 PIN HEADER 
BUFFERED 


(80286 CPU PLUG-IN CARD AVAILABLE SOON) 


MANUAL $ 20.00 CONTROLLER. SERIAL 1/0. ASSEMBLED AND TESTED 
eBARE BOARD EPROMS. 280 BIOS. 68000 BIOS 280 $1,499.95 


MONITOR. 68000 MONITOR AND UTILITIES 9 PARTS K e. $1,379.95 
erage oun ONED CYPHER” WITH 68000/280. SERIAL = KEYBOAR $ 94.95 
1/0. 128K DO! 4K S RAM AND DISK CONTROLLER SSuNTCTaNG POWER SUPPLY $ 154.95 

ASSEMBLED AND TESTED $ 1,099.95 CASE s 94.9 
ATS K 95 HARD DISC INTERFACE PLUG-IN CARD $ 125.00 


$ 999. 
ocOMEL ere CYPHER WITH 256K ORAM. 128K VIDEO 
ORAM NEG 7220 REAL TIME CLOCK AD D/A DISC 


MOTOROLA fie INTEL 


ATELY.S 7 of MOTEL COMPUTERS LIMITED 

mAnER VISA MC ©6174 BETTY ANN DRIVE, WILLOWDALE, 

z TORONTO, ONTARIO, CANADA M2N 1X6 
(416) 221-2340 


Circle na no. 56 on Je service card. 
SCREEN 


GCISTEW wanacer 


cVIEW helps to create and com- 
municate with forms that will 
enable you to provide a 
sophisticated user interface 
for your C applications 
programs. 









Ci86, Lattice, Mark Williams 
Dynamic Forms Position 
Special Key Definitions 
Input Range Validation 
Color or Monochrome 
Block Cursor Option 
Selection Sets 






cVIEW Screen Managev................ . 
cVIEW with Source Code............... $545.00 
SSE ENRON Go oh kas vos cccteen tate oat evinn $25.00 


CompuCraft 
42101 Mound Road 731-2780 


Sterling Heights, Michigan 48078 
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A general purpose programming 
language for string and list 
processing and all forms of 

non-numerical computation. 


SNOBOL4+ 


SNOBOL4 language with its superb pattern-matching 
facilities © Strings over 32,000 bytes in length ® Integer 


—the entire 


and floating point using 8087 or supplied emulator ‘* 
e ASCII, binary, sequential, and random- yt 


access |/O ® Assembly Language inter- Pi 


<0 


With 
to 300K bytes og ELIZA & over 
RAM SS 2 100 sample pro- 

oe grams and functions 


face * Compile new code ry 
program execution ® kcal 
SAVE files * Program 

and data space ye oe" 


7 all 8086/88 PC/MS-DOS or 
sie M-86 systems, 128K minimum 


ve 5%" DSDD, specify DOS/CPM format 
») 

oo Send check, VISA, M/C to: $95 

~ Catspaw, Inc. puss 


P.O. Box 1123 * Salida, CO 81201 * 303/539-3884 
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I PROMPT DELIVERY!!!| 


S SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 


8087-3 Co-Processors $131.25 
DYNAMIC RAM 
256Kx1 150 ns 
128Kx1 150 ns 
64Kx1 150 ns 
64Kx1 200 ns 
EPROM 
32Kx8 300 ns 
16Kx8 250 ns 
8Kx8 200 ns 
8Kx8 250 ns 
4Kx8 250 ns 
2Kx8 450 ns 
STATIC RAM 
6264P-15 skxs 150 ns $18.75 
6116P-3 2kxs 150 ns 3.75 


OPEN 6% DAYS: WE CAN SHIP VIA FED-EX ON SAT. 


MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts .uPoo 
MICROPROCESSORS UNLIMITED 
24,000 South P Ave. 
BEGGS. OK. 7443t ne (918) 267-4961 
Prices shown above are for January 21, 1985 


Please call for current prices. Prices subject to change. Please expect higher or lower prices on 
some parts due to supply & demand and our changing costs. Shipping & insurance extra. Cash 
discount prices shown. Small orders received by 6 PM CST can usually be delivered to you by 
the next morning, via Federal Express Standard Air @ $6.75! 


256K 
128K 
64K 
64K 


$12.79 
17.50 
2.44 
2:57 


27256 
27128 
27C64 
2764 
2732A 
2716 


$34.97 
10.97 
11.87 
5.31 
5.99 
3.21 


QUANTITY ONE PRICES SHOWN 
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ZAS 


ot Software 
Development Package 


The industry's most sophisticated development tool is 
now available for the Z-8000 and the Z-8 under 
CP/M MDOS. andISIS. 


Includes: 
e ZAS Relocatable Macro Cross Assembler 
- 38 directives, nested macros, etc. 

e ZLK Task Builder/Linker 
- resolves CALR’s , section oriented 
e ZLD User-Modifiable Object Loader 
e ZEX Dual Processor Run-Time Support 




















CP/M TM Digital Research 
MDOS TM Microsoft 
ISIS TM Intel Corp 


= Western War eS 


303-327-4898 
Box C e Norwood, CO 81423 
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C Programmers 


B-Trees 


For 


y 5.° @ +2. ri Postage 


Source Code Included 
The Softfocus B-Trees record index- 
ing library will help you develop 
sophisticated application programs. 
With Softfocus B-Trees you get: 
e high speed file handling for up 
to 16.7 million records per file 
e customizable BDS orK&R 
standard C source code 
eno royalties on applications 
orograms 
@ support random and sequential 
file access 
@ includes example programs 
Softfocus 
1277 Pallatine Dr., 
Canada L6H 121 





CHARGES 


Oakville, Ont — 
(416) 844-2610 wwrSs 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to a ZILOG™ or 8080 source 
code MAC file with insertion of all public 
and external symbols. 

@ REL/MOD lists library modules 

@ REL/VUE displays the bit stream 

e 50 page manual with examples 

@ free brochure available 

e@ REL/PAK includes all of the above 


REL/PAK for 8080 only 
REL/PAK for Z80 & 8080 
on 8”SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 


[CSE] MicroSmiri 


COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46915 
1-800-622-4070 
(Illinois only 1-800-942-7317) 





Circle no. 41 on reader service card. 


BYSO LISP 


has features that will delight 
both beginners and advanced 
programmers. A fast, reliable 
and complete interpreter for the 
IBM PC and true compatibles. 
$125 includes 100 pg. ref. 
manual and application notes 
that put you months ahead on 
useful projects (making a hybrid 
language with C, accessing 
system functions and I/O ports, 
building your own dialect, etc.). 

























INSTRUMENT CO. 


LEVIEN 
PO. Bex: 318 
McDowell, VA 24458 


IBM PC is a trademark of the IBM Corp. 
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Now With Windowing! 
$49.95 Basic Compiler 


MTBASIC 


Features: 
Multitasking Windowing 
Handles interrupts __ Interactive 
Fast native code Compiles quickly 
Floating point No runtime fee 




















MTBASIC is a true native code compiler. It runs Bytes's Sept. 
‘81 seive in 26 seconds; interpreters take over 1400 seconds! 
Because MTBASIC is multitasking, it can run up to 10 Basic 
routines at the same time, while displaying ten separate win- 
dows. Pop-up/down menus are a snap to implement. 


MTBASIC combines the best of interpreters and compilers. To 
the programmer, MTBASIC appears to be an extremely fast 
interpreter. MTBASIC compiles a typical 100 line Basic pro- 
gram in 1 second, yet it generates blindingly fast code. No 
more waiting for long compiles. 


AVAILABLE for CP/M (Z-80) and PC-DOS systems. 


ORDERING: Specify format when ordering. We accept Visa, 
MC, checks and COD. Send $49.95 plus $3.50 shipping and 
handling ($10 overseas) to: 


_SOFIAID, Inc. 


P.O. Box 2412 Columbia,MD 21045-1412 
301/792-8096 
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REVIEWS 


SAVVY PC, Version 4.0 

Company: Excalibur Technologies 
Corporation, 800 Rio Grande 
Bivd. NW, Albuquerque, NM 
87104, (505) 242-3333 

Computer: IBM PC and most 
compatibles 

Price: $395 

Circle Reader Service No. 131 

Reviewed by Steve King 


SAVVY PC is misrepresented— Excali- 
bur Technologies advertises its product 
as “‘the artificial intelligence data 
base,” but the data base manager con- 
stitutes only a small part of the total 
contents of the SAVVY PC package. 
SAVVY is actually a complete pro- 
gramming language unto itself. Ex- 
calibur Technologies seems to have in- 
cluded the SAVVY PC data base 
manager more as an example of the 
SAVVY programming language’s ca- 
pabilities. Don’t get me wrong; the 
SAVVY PC data base manager is as 
powerful as any I’ve tried, including 
KnowledgeMan. But the SAVVY pro- 
gramming language is the heart of the 
whole SAVVY PC package. 


Fourth and Fifth Generation 
Languages 

The mainframe world is undergoing a 
computer language revolution that par- 
tially parallels a similar change in the 
mini- and microcomputer worlds. 
Fourth generation languages are re- 
placing the mainframe world’s liturgi- 
cal high-level programming language, 
COBOL. 

From a microcomputer world view, it 
appears anachronistic that a basically 
unstructured language, such as CO- 
BOL, continues to enjoy extensive use 
for applications programming. (Of 
course, the microcomputer world also 
continues to suffer with Microsoft BA- 
SIC in its many flavors.) But the exis- 
tence of so much mainframe COBOL 
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code makes it economically unfeasible 
to discard the language in favor of such 
structured languages as Pascal or C, 
which have become so popular for mini- 
and microcomputers. However, fourth 
generation languages (FGLs) are now 
helping to solve this mainframe prob- 
lem: they allow programmers to devel- 
op application programs much more 
rapidly than high-level languages, and 
moreover, many mainframe FGLs can 
access COBOL data files. 

What is an FGL? It’s the procedural 
and query language supplied with a 
data base management system 
(DBMS); examples are dBASE II or 
KnowledgeMan. FGLs probably began 
as macros to expedite data base man- 
agement procedures, but many of them 
have evolved into fairly complete pro- 
gramming languages. Just as the 
dBASE II language was the first to 
gain wide use and popularity in the mi- 
crocomputer world, the SQL (pro- 
nounced “‘sequel’’) language, devel- 
oped by IBM as part of the SQL/DS 
DBMS, was the first to gain wide use 
and popularity in the mainframe 
world. The KnowledgeMan version of 
SQL is modeled after the IBM main- 
frame version. 

When I first received SAVVY PC, I 
expected to find another DBMS with 
its accompanying FGL. Instead, I 
found a highly structured and modular 
language that uses spoken English ter- 
minology. Excalibur Technologies 
calls SAVVY “‘a natural language pro- 
gramming environment and set of tools 
for solving data processing problems 
[by] using natural language program- 
ming.” The Excalibur folks wrote the 
SAVVY PC data base manager in the 
SAVVY programming language (from 
here on referred to as SAVVY). SAV- 
VY is not quite a true “fifth genera- 
tion” language, which would allow a 
spoken English interface with a com- 
puter (““Hey, computer, baby, look in 





the name and address data base and 
get me the phone number for Dr. 
DooBy’s ComPuter JunkYard and 
HamBurger EmPorium...’’), but it’s 
as close to that goal as any program- 
ming language I’ve seen yet. 


Pattern Recognition 

Pattern recognition capabilities, one of 
the foundation structures of the artifi- 
cial intelligence world, allow Excalibur 
Technologies to tout SAVVY PC as 
“the artificial intelligence data base.” 
The folks at Excalibur structured 
SAVVY around their Adaptive Pattern 
Recognition Processor (APRP). This 
4K program core recognizes the com- 
mands you give SAVVY PC. If you’ve 
made a typing error or used improper 
syntax with a command, the APRP will 
either correct your error or suggest 
changes to the command by providing 
a menu of possible correct choices. 

The SAVVY APRP is fast. Excalibur 
claims that it does not look up each 
word in the SAVVY dictionary (more 
about that later) as you key entries but 
uses an algorithmic trick to provide 
immediate response to entry errors. In 
fact, development of the APRP preced- 
ed the SAVVY language and SAVVY 
PC DBMS. 

You may turn off the APRP and 
switch SAVVY from the free mode to | 
the literal mode at any time. When you 
write a program with SAVVY, the 
manual recommends that you work in 
the literal mode so the APRP won’t 
search for words it doesn’t know. Until 
I got used to SAVVY, I found myself 
frustrated several times when I forgot 
to turn off the APRP. SAVVY often re- 
wrote what I thought was a new word 
because the program considered my 
word a typing error. 

The second contribution that the ar- 
tificial intelligence world has made to 
the application software world is the 
natural language interface. The SAV- 
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VY RETRIEVER reportedly allows you 
to query a SAVVY PC data base using 
plain old English. I had hoped to de- 
scribe how RETRIEVER works and to 
evaluate it for this review, but Excali- 
bur didn’t release it in time for the 
Dr.’s publication deadline. 


The Data Base Manager 

The SAVVY PC package comes with a 
thick, IBM-sized, detailed reference 
manual/slide case for SAVVY and a 
booklet for the SAVVY SAMPLER to 
introduce you to the DBMS. You also 
receive a master program disk and the 
sampler disk. Both disks contain the 
files SAVVY.COM, SAVVY.OVR, and 
DATABASE.SVY. 

Excalibur wrote SAVVY PC in 
MMSForth (this despite John Dvorak’s 
statement in his JnfoWorld column, 
‘Inside Track,” that no decent program 
was ever written in Forth). SAVVY PC 
shows its Forth heritage by storing data 
base procedures, report formats, and 
the data files in DATABASE.SVY. Al- 
though the program does not use the 
DOS environment, DATABASE.SVY 
resides on a standard DOS format disk, 
and SAVVY PC can import and export 
standard DOS files. When you write a 
SAVVY program that doesn’t use the 
data base manager, SAVVY PC creates 
a separate storage file that you name 
(FILENAME.SVY). 

After SAVVY boots and presents its 
sign-on messages, it displays the 
prompt: “What would you like me to do 
now?” You may either enter the menu 
system by typing MAIN MENU or en- 
ter direct commands to SAVVY. The 
data base manager booklet and sampler 
disk take you through the basics of us- 
ing the DBMS and generating reports. 
Because the DATABASE.SVY file on 
the sampler disk contains almost 213K, 
you barely have enough disk space to 
finish the examples before running out 
of storage room. SAVVY gives you ade- 
quate warning when you are about to 
run out of disk space. It also provides 
the JANITOR command to perform 
general disk housekeeping chores and 
to compact your data. However, you 
can avoid the disk space problem by 
copying DATABASE.SVY to drive B: 
and modifying the DEMO.BAT batch 
file to reflect this change. 

When you tell SAVVY PC to gener- 
ate a new data base, the program pro- 


vides a blank form on the screen and 
allows you to structure the layout of 
your data entry screen by “painting” 
the screen. SAVVY PC also guesses at 
your data types (i.e., ANSWER, COM- 
PUTED, DATE, GENERAL, INTE- 
GER, MONEY, NOTE, NUMBER, 
PHONE, SSN, STATE, or ZIP) when 
you create the data entry screen. Lat- 
er, the program allows you to clean up 
things by detailing data types, field 
length, and limits for data entry. You 
may also build relationships with other 
data files and specify whether data en- 
tered into your new data base will up- 
date related data bases. After you 
complete your design work, SAVVY PC 
takes from two to six minutes to gener- 
ate the data base. All SAVVY’s activi- 
ties scroll past you as it works. Al- 
though not documented in the SAVVY 
manual, if you press <Ctrl><Num 
Lock>, you can pause SAVVY’s activ- 
ities to determine exactly what the pro- 
gram is doing to create your data 
base—a good tool to assist in learning 
the SAVVY language. 
[A warning about another undocu- 
mented feature: <Ctrl><Break> 
exits SAVVY in a hurry. Once, while 
reviewing a program I was working on, 
I accidentally pressed <Ctrl> 
<Break> instead of <Ctrl><Num 
Lock>. After some disk activity, SAV- 
VY dumped me back to DOS. SAVVY. 
had closed the open files, so no harm 
was done. However, I experimented 
further and found that if I hit <Ctrl> 
<Break> while SAVVY was building 
a new data base, all my work would be 
lost. | 

As time has permitted over the last 
six months, I have been developing a 
ranch management package for my 
wife, who is a horse trainer. I had been 
using KnowledgeMan (KMan), which 
allows much quicker and easier pro- 
gram development than a high-level 
language does, but hadn’t found the 
time to design simplified data entry 
forms. KMan’s traditional data base 
data entry format reinforced my wife’s 
dislike of computers. She also had 
trouble phrasing data base queries 
with KMan’s SQL language. After her 
first few frustrating attempts with the 
KMan ranch management package, 
she refused to use the program. 

When I received SAVVY PC, I de- 
cided to give the ranch management 
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project one more try—but with SAV- 
VY PC instead of KMan. SAVVY PC 
simplifies the data base design process 
(you construct the entry screens as you 
structure the data base), which also 
speeds up the whole programming ef- 
fort. I completed the SAVVY PC ver- 
sion of the ranch management data 
base in less time than it took to finish 
the KMan version only partially. After 
a great deal of coaxing, my wife tried 
the new program. She was pleasantly 
surprised. Although she doesn’t dislike 
computers any less, at least now she 
uses the data base I designed for her. 


SAVVY Programming 
SAVVY comes with a dictionary of 
more than 220 words. The dictionary 
does not contain just the usual data 
base terms; it also holds all the avail- 
able SAVVY commands, items, tasks, 
and functions. When you write a SAV- 
VY program, you use existing SAVVY 
words to create new words for the dic- 
tionary; 1.e., you may extend SAVVY 
as you would extend C or Forth. Be- 
cause SAVVY words may contain up to 
80 characters, you can be fairly de- 
scriptive when creating new terms. 

Commands simply represent direct 
orders to SAVVY. However, the APRP 
affects the way you interact with SAV- 
VY. For example, after you give the 
command COPY and press <Enter>, 
SAVVY responds with ““COPY the _ to 
_.” The cursor is positioned at the first 
underline (underlines are displayed as 
reverse video blocks on your CRT). Af- 
ter you type the name of the item you 
wish copied and press <Enter>, SAV- 
VY moves the cursor to the second un- 
derline. Type the second item and 
<Enter>. Items may be either con- 
stants or variables; SAVVY doesn’t dif- 
ferentiate between the two. The final 
result could indicate: COPY the FIRST 
CONSTANT to LAST VARIABLE. 

Tasks and functions contain groups 
of commands that perform specific op- 
erations (they may also contain other 
tasks and functions); these groups pro- 
vide SAVVY with its modular pro- 
gramming approach. Tasks and func- 
tions are identical except that a task 
stands on its own and a function re- 
quires operands or arguments to per- 
form its chores. 

For example, when SAVVY created 
the ranch management data base pro- 
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gram for my wife, I had specified that 
the horse’s AGE field be calculated. My 
wife wants the data base to calculate 
the horse’s age automatically after she 
enters the animal’s date of birth. (By 
convention, all horses become one year 
older at the first of each year, rather 
than on their actual birth dates; this 
custom greatly simplifies the 
calculation. ) 

While watching the screen as SAV- 


VY generated the ranch management 
data base, I saw that the program cre- 
ated a task called RANCH MANAGE- 
MENT, COMPUTE THE AGE. After 
SAVVY finished creating the data 
base, I told it to detail the RANCH 
MANAGEMENT , COMPUTE THE 
AGE. Because SAVVY showed that the 
task contained only the line ““COPY the 
** to AGE,” I used the SAVVY Task 
Editor to create the actual age calcula- 
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tion task as follows: 


Task RANCH MANAGEMENT , 
COMPUTE THE AGE 
1 COPY the DATE OF BIRTH to 
BIRTHDATE 
2 TAKE the first 6 characters from 
BIRTHDATE 
3 COPY the BACK to BIRTH YEAR 
4 GET DATE and time into TO- 
DAY’S DATE 
5 TAKE the first 15 characters from 
TODAY’S DATE 
6 COPY the BACK to THIS YEAR 
7 SUBTRACT the BIRTH YEAR 
from THIS YEAR 
8 COPY the DIFFERENCE to AGE 
End. 


Each time you enter a word that is 
not in the SAVVY dictionary (such as 
BIRTHDATE or BIRTH YEAR), the 
program informs you that it does not 
know the word and asks if you wish to 
define it. Answer “yes” and continue 
to enter your program. SAVVY auto- 
matically numbers the lines. Because 
no task or function may be more than 
100 lines long, you are forced to write 
programs in modular blocks and to 
structure them in a Forth-like top 
down fashion. 

In the above example, line | copies 
the animal’s birthdate to a new item. 
Because you enter BIRTHDATE in the 
form of DD/MM/YY, line 2 can split it 
into the FRONT portion, DD/MM/, 
and the BACK portion, YY, to obtain 
the BIRTH YEAR. Lines 4 and 5 obtain 
the TODAY’S DATE from the operat- 
ing system; the GET DATE command 
also retrieves the system time. Because 
this command uses a HH:MM:SS DD/ 
MM/YY format, you must cut the TO- 
DAY’S DATE variable after the fif- 
teenth character to obtain THIS YEAR. 
Line 7 performs the calculation, and 
line 8 copies it to the AGE. 

After you finish writing a task or 
function, press <Alt><Q> and 
SAVVY will compile it. The program 
informs you of the nature and location 
of any syntax errors that the task or 
function may contain. 

Programming in SAVVY is similar to 
programming with Forth. Basically, 
you extend SAVVY and create new 
tasks and functions with the existing 
SAVVY words, then SAVVY compiles 
the new tasks and functions. When your 
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program runs, SAVVY interprets the 
compiled words one by one. But unlike 
Forth, SAVVY’s terminology is easy to 
remember and understand because it’s 
plain old English. You also don’t have 
to worry about manipulating Forth’s 
stack or reverse Polish notation. 


On the Negative Side 

The only mathematical functions that 
SAVVY contains are add, subtract, 
multiply, and divide. If your programs 
require higher math functions, you will 
have to write them yourself. 

SAVVY contains no way of adding 
comments or remarks to programs. Be- 
cause of SAVVY’s natural language 
terminology, I’m sure Excalibur Tech- 
nologies didn’t consider remarks nec- 
essary. But remarks often make it easi- 
er to understand long tasks or 
functions. However, SAVVY lends it- 
self well to pseudocoding, which great- 
ly simplifies program design. 

Like its parent Forth, SAVVY makes 
no provisions for arrays and, as stated 
earlier, doesn’t use a stack as a partial 
substitute for arrays. However, the 
program contains such extensive 
string-handling functions for character 
and bit manipulation, you probably 
won't need arrays. Unlike BASIC’s 
RIGHT$, MID$, LEFT$, and so on, 
SAVVY’s string-handling commands 
are easy for even novice programmers 
to understand and use. 

As massive and as well written as 
SAVVY’s documentation is, there’s 
just not enough of it. You must watch 
SAVVY build data bases to learn the 
details of writing programs with the 
language. The data base manager 
booklet contains only 42 pages about 
extending a SAVVY-generated data 
base. Also, the manual contains only 
the particulars of programming with 
SAVVY and supplies no information 
about integrating programs into SAV- 
VY PC-created data base programs. 

A member of Excalibur Technolo- 
gies informed me that a 600+ page tu- 
torial for an earlier version of SAVVY 
exists. The company is updating the 
tutorial to meet the requirements of 
the present version of SAVVY and will 
release the book as soon as possible. 


Where to Next? 
Because SAVVY also contains a fairly 
complete set of communications com- 





mands, a friend and I plan to write a 
remote bulletin board system (RBBS) 
with SAVVY. Most IBM PC RBBSs use 
variations of the Capitol Computer 
Club (CPC) RBBS, which was written 
in BASICA. I have seen several varia- 
tions (A — D) of the CPC RBBS, version 
12.3, on different systems and have also 
seen announcements that version 13 is 
imminent. An RBBS SYSOP (SYstem 
OPerator) recently confided in me that 
although CPC RBBS has been evolving 
for over two years, it still contains bugs. 
My friend and I believe that we can de- 
velop a SAVVY RBBS in just two or 
three months; almost any FGL, and 
particularly SAVVY, reduces program- 
ming time extensively. 

I have pretty much stopped pro- 
gramming with BASIC, Turbo Pascal, 
and KnowledgeMan and switched to 
SAVVY. When the tutorial becomes 
available, I believe SAVVY will be- 
come one of the easiest ways to teach 
novice computer users about the black 
art of computer programming. When 
they reviewed SAVVY PC for the mas- 
sive data base comparison series that 
appeared in PC Magazine, John F. and 
Barbara E. McMullen stated that pro- 
gramming in SAVVY PC is fun—and 
they were right. 
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by R. P. Sutherland 
Turing’s Man 


A reading of J. David Bolter’s book 
Turing’s Man: Western Culture in the 
Computer Age has put our issue on ar- 
tificial intelligence in a larger context 
for me. Turing’s Manis a study of the 
impact that electronic logic machines 
are having upon our culture. 

Bolter traces the history of what he 
calls “‘defining technologies” from an- 
cient Greece until today. He does this 
by showing the correspondence be- 
tween technologies and philosophical / 
theological metaphors. He points out, 
for example, that the Greeks, who 
were craftsmen, had gods who were 
potters and spinners. The poet who de- 
scribed the Fates as spinning the 
threads of human lives was influenced 
by the fact that in ancient Greece spin- 
ning was a defining technology. Plato 
compared the physical universe to a 
spindle. Likewise, during the Middle 
Ages the weight-driven clock provided 
a new metaphor for the motions of the 
planets. Descartes’ mechanistic de- 
scriptions of the world were compelling 
to his contemporaries because they 
were familiar with clocks and gears. 
With the rise of the steam engine in the 
nineteenth century, the earth was com- 
pared to a large heat engine. 

In the twentieth century’s headlong 
rush to make a machine think like a 
human, we have defined the human in 
terms of a machine. Arguing for a syn- 
thesis of man and computer, Bolter 
proposes to replace the term “‘artificial 
intelligence” with “synthetic intelli- 
gence.” Bolter concludes that Turing’s 
man is the most complete synthesis of 
the human and the technological in 
Western history, and he predicts that 
the computer as a defining technology 
will give way to a technology that we 
cannot yet imagine. We may not real- 
ize Turing’s 1950 prediction by the end 
of this century, but the fact that we are 
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thinking along these lines implies that 
the computer as a metaphor for the 
way we understand ourselves is firmly 
established. 

Bolter has graduate degrees in the 
classics as well as in computer science. 
Turing’s Man (ISBN 0-8078-1564-0) 
is published by The University of 
North Carolina Press, Post Office Box 
2288, Chapel Hill, NC 27514. Reader 
Service No. 101. 
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Solution Systems, the publisher of Pro- 
log-86, is sponsoring a contest for pro- 
grammers interested in artificial intel- 
ligence. The purpose of the contest, 
“Artificial Intelligence Concepts,”’ is 
to generate material to help Prolog 
programmers and to promote Prolog. 
Programmers who wish to enter should 
develop expert systems and/or natural 
language processing systems designed 
to illustrate methods and concepts of 
Prolog programming. Applications 
with a strong commercial potential are 
discouraged. The application judged to 
be the most significant will receive a 
cash reward of $1000.00. All partici- 
pants will receive diskettes containing 
all contributions made by other contes- 
tants. Submit applications on 54-inch 
MSDOS diskettes to Solution Systems, 
335 Washington Street, Norwell, MA 
02061, accompanied by a one-page de- 
scription. All submissions must be in 
by April 30, 1985. The winners will be 
announced in June 1985. For details 
call Solution Systems at (617) 659- 
1571. Reader Service No. 103. 

Sun Microsystems has expanded the 
use of its workstations by adding AI 
packages to its Third Party Referral 
Program. Quintus Computer Systems, 
Inc., Palo Alto, CA, has released Quin- 
tus Prolog, which includes an interface 
for calling C programs. Lucid, Inc., 


Palo Alto, CA, is offering Lucid Com- 
mon Lisp for developing portable 
knowledge-based applications on Sun 
Workstations. The Knowledge Engi- 
neering System (KES) from Software 
Architecture and Engineering, Inc., 
Arlington, VA, is an integrated set of 
utilities designed to allow newcomers 
to the field of AI to design expert sys- 
tems. Smart System Technology, 
McLean, VA, offers DUCK, a high- 
level Lisp-based applications develop- 
ment environment for designing sys- 
tems based on logic reasoning. JoAnn 
Kahn is the manager of Sun’s Third 
Party Programs and can be reached at 
Sun Microsystems, Inc., 2550 Garcia 
Avenue, Mountain View, CA 94043. 
Reader Service No. 105. 

A Canadian company has developed 
a micro-version of MPROLOG, which, 
it says, opens the door to low-cost Al 
applications. MPROLOG (Modular 
Programming in Logic) allows a pro- 
grammer to create a major program 
for a mainframe computer on a micro- 
computer by working with modules. 
So, by working on an IBM PC, one can 
develop an AI application one module 
at a time and execute the full applica- 
tion on a VAX or IBM mainframe or a 
68000-based machine. MPROLOG for 
microcomputers is $950.00 for a paid- 
up license or $260.00 a month to lease. 
For further information: Logicware 
Inc., 1000 Finch Avenue West, Suite 
600, Toronto, Ontario M3J 2V5 (416) 
665-0022. Reader Service No. 107. 








Software 


“The arcade game is all but dead,” ac- 
cording to Synapse Software President 
Jon Loveless who has just released two 
electronic novels: Essex and Mind- 
wheel. I haven’t “tread” one yet, but 
they are supposed to put the user in the 
center of the action so that the user’s 
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decisions determine the outcome of the 
plot. The novels are to be marketed 
through bookstores as well as software 
stores for less than $50.00 each and are 
available for IBM PC, Atari, Apple Ile, 
Apple IIc, Macintosh, and Commo- 
dore. Synapse Software Corporation is 
located at 5221 Central Avenue, Rich- 
mond, CA 94804 (415) 527-7751. 
Reader Service No. 109. 

Speaking of novels, RACTER is a 
software program that has authored a 
published book: The Policeman’s Beard 
is Half Constructed. The book features 
stories, essays, poems, and interviews 
created by RACTER. A sample poem: 
**More than iron, more than lead, more 
than gold I need electricity./I need it 
more than I need lamb or pork or let- 
tuce or cucumber./I need it for my 
dreams.” The creators, Tom Etter and 
Bill Chamberlain, claim that it pro- 
duces original conversation that is also 
grammatical, without the use of stock 
phrases. RACTER is available for 
MSDOS or CP/M for $69.95 from John 
D. Owens Associates, Inc., 12 Schu- 
bert Street, Staten Island, NY 10305 
(212) 448-6298. Reader Service No. 111. 
The Policeman’s Beard is Half Con- 
structed (ISBN 0-446-3805 1-2) is pub- 
lished by Warner Software/Warner 
Books, 666 Fifth Avenue, New York, 
NY 10103. Reader Service No. 113. 

A computerized thesaurus called 
Synonym Finder is available for 
MSDOS running WordStar or Multi- 
mate and CP/M 80 running WordStar. 
Synonym Finder sells for $124.95 
from Writing Consultants at 11 Creek 
Bend Drive, Fairport, NY 14450 (716) 
377-0130. Reader Service No. 115. 

Word Publishing has announced the 
release of NARNIA, a video game based 
on the Chronicles of Narnia by C. S. 
Lewis. NARNIA is available for Apple 
II and Commodore 64 computers. 
Availability: Waldenbooks and Com- 
puterland stores, or send $39.95 to 
Word Inc., Waco, TX 76703. Reader 
Service No. 117. 

Thoroughbred Handicapper II is a 
computerized system that analyzes 
thoroughbred horse races and helps to 
predict the winners. The handicapping 
system is based on a statistical analysis 
of horse races. Thoroughbred Handi- 
capper II is available for the IBM PC 
family for $49.95. Contact The Soft- 
ware Bottling Company of New York, 
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29-14 23rd Avenue, Long Island City, 
NY 11105 (718) 728-2200. Reader Ser- 
vice No. 119. 

A brain wave to electronic speech 
system for the ZX-81/TS-1000 and 
Apple computers permits brain wave 
control over robotic devices. We can- 
not verify this claim, but for more in- 
formation write to Rosetronix, PO. 
Box 7464, Chula Vista, CA 92012. 


Reader Service No. 121. 





















Surpmit Software) NOW AVAILABLE FOR order BetterBASIC Now 
sooo boo | THE TANDY 2000 & 1200 
“). BOX Price: $199 
Babson Park 8087 Math Module: $99 


BASIC 
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Wellesley, MA 02157 
1-800-225-5800 


BetterBASIC is a trademark of 
Summit Software Technology, Inc. 
IBM PC, IBM PC/XT and PC/DOS 
are trademarks of International 
Business Machines Corp. MS-DOS 
is a trademark of Microsoft Corp. 







WHY WOULD ANY 

SANE PERSON 
SPEND $199 
FOR A BetterBASIC 
SYSTEM 
WHEN DOS’s IS FREE? 


HERE ARE 10 REASONS: 
TEST YOUR SANITY 


I. Full support for 640K memory a Structured language with BASIC 
syntax 3. Separately compiled program modules 4, Speed: FAST 

5. Extensibility (Make your own BASIC.) 6. User-detined procedures 
| and functions 7. Built-in windows support 8. Interactive programming 


language based on an incremental compiler 9. 8087 math support 


10. Runs on IBM PC, IBM PC/XT and compatibles 





Hardware 


The Integral Personal Computer from 
Hewlett-Packard is a 68000 Unix-based 
machine. This pertable computer has a 
built-in ThinkJet printer, a 3'4-inch 
(710K) disc drive, a 9-inch electrolumi- 
nescent display, and a full-size key- 
board. Price: under $5,000.00. Hewlett- 
Packard, P.O. Box 10301, Palo Alto, 
CA 94303. Reader Service No. 123. 







































Sane Programmers 











Runtime System: $250 
Sample Disk: $10 







MasterCard, VISA, P.O. Checks, 
Money Orders, and 
C.O.D. accepted. . 
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5 ee A 2 A 2 A 2 A A 


Are You Working 
With a Full Deck? 





Increase your chances of a winning 
hand. 


Confront today's issues of 
multi-user, multi-tasking computer 
systems and collect your chips 
tomorrow! 


Use this pair 
to complete 
ee A the deal. 





These key computer expositions promise a full 
house in two of the major computer technology 
centers — San Francisco and Boston. 


UNIX Systems Expo/85 — Spring 
April 24-26 San Francisco 


UNIX Systems Expo/85 — Fall 








October 3-5 Boston Exhibit: 
if your market consists of 
large corporate users, VARs, & 4 a v 
software developers, systems Exclusive productions of 
integrators and OEMs. Computer Faire, Inc./a Prentice-Hall 
Company 
Attend: 181 Wells Avenue 


Newton, MA 02159 


to explore and understand 617/965-8350 


the emerging multi-user, 
611 Veterans Boulevard 


multi-tasking computer Redwood City, CA 94063 
systems and products. 415/364-4294 


*UNIX is a trademark of AT&T Bell 
Laboratories 





Name _ 
Title | 
Comp any 
City/State/Zip : 
Phone _ 


Computer Faire,Inc. 181 Wells Avenue Newton, MA 02159 
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8086/8088 
Development ] 09 
Package 
FULL DEVELOPMENT PACKAGE 
= Full K&R C Compiler 
Assembler, Linker & Librarian 
Full-Screen Editor 


Execution Profiler 
Complete STDIO Library (>120 Func) 


The Spectravideo Bondwell 12 computer runs CP/M 2.2 on a Z80a CPU. The price of Automatic DOS 1.X/2 X SUPPORT 
$995.00 includes a voice synthesizer, two floppy disk drives, and bundled software. BOTH 8087 AND S/W FLOATING POINT 
Christopher Chang, President, Spectravideo, 3300 Seldon Court #10, Fremont, CA OVERLAYS 


94539 (415) 490-4300. Reader Service No. 125. OUTSTANDING PERFORMANCE 
- First and Second in AUG ’83 BYTE 
benchmarks 





Examine & change variables by 
name using C expressions 


Flip between debug and display 
screen 


Display C source during execution 


Set multiple breakpoints by function 
or line number 


DOS LINK SUPPORT $35 


Uses DOS .OBJ Format 
LINKs with DOS ASM 
Uses Lattice® naming conventions 


Check: C) Dev. Pkg (109) 
CL) Debugger (50) 
1) DOS Link Supt. (35) 





SHIP TO: 


WARE 


CORPORATION 





P.O. BOX C 
Sunnyvale, CA 94087 


(408) 720-9696 


All orders shipped UPS surface on IBM format disks. 
Shipping included in price. California residents add 
Sales tax. Canada shipping add $5. elsewhere add 
$15. Checks must be on US Bank and in US Dollars 
Call 9 am. — 1 p.m. to CHARGE by VISA/MC/AMEX. 


A modular robot called Tutor is available as a kit from Cybot, Inc. for $3,395.00. The 
three circuit boards used to control the Tutor robot are designed to the S-100 standard. 
Cybot, Inc., 733 7th Avenue, Kirkland, WA 98033. Reader Service No. 129. DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 197. 


ee 


Circle no. 18 on reader service card. 
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DD) KG lassifieds 





PCBTAM 


Communications Access Method 


Allows an IBM PC or compatible to perform 
BISYNC communication. PCBTAM is a gener- 
al purpose interrupt driven access method us- 
able by any Microsoft language. Requires IBM 
BSCA card and PC-DOS. 

¢ Source or object license 

* Asynchronous version available (PCATAM) 

¢ Modifiable for other USARTS. 
For details write: 


SYMBIOTIC 


Symbiotic Protocol Converters, inc. 
1011 Clifton Avenue, Clifton, New Jersey 07013 
(201) 777-6454 























Olive Branch Software 


COPY PROTECTION 

SLK/F places an assembled or 
compiled program on a dis- 
kette with 4 different copy- 
resistant features in sucha 
way that it runs normally, but 
cannot be copied by backup 
programs such as COPYPC. 
The rest of the diskette is 
available as normal, and DOS 
may be added. Price $150. 
Olive Branch Software 

1715 Olive Street 

Santa Barbara, CA 93101 
(805)569-1682 





Offering low cost 
advertising reaching 
thousands of computer 
programmers and 
professionals each 
month. Departments to 
choose from include: 
Software 

Hardware 
Accessories/Supplies 
Career Opportunities 
Services 

User Groups. Special 
categories are also 
available. 


Announcing... 


Dr. Dobb’s Journal 
Bound Volume 7 


Includes every 1982 issue of Dr. Dobb’s Journal 


Yes! Please send me Volume #7 

lenclose [ |] check/money order. 

Please charge my: [_| VISA[_| M/C[_] American Express 

Cate i ee a  Bepiration are 
Signature 


ites 2, SAREE Tee MY SLE rt OP 5 Rie ie Re PAS Cs NTR ee DMR ST ew RE a SURES 
Pog ag: | eae AE! Boe REG, Se OP th RE AO Es SOE ROR EAs MES MUNROE RS Ree it 


City - 
Volume‘? 22s | Se $30:.75.— $ 


Payment must accompany your order. Mail to Dr. Dobb’s Journal. 
2464 Embarcadero Way, Palo Alto, CA 94303. 
Allow 6-9 weeks for delivery. 


Postage & Handling must be included with your order. 
Please add $1.25 per book in U.S., $2.00 each outside U.S. 


[_] Please send me more information on other Bound Volumes. 





Dr. Dobb’s Journal 


is pleased to announce the 
DDJ Classifieds 


RATES: DISPLAY ADVERTISERS: Price per column inch $100. Ad must run in 3 
consecutive issues. 

LINE ADVERTISERS: Price per line $12 (35 characters per line including 
spaces). Minimum of 5 lines. 3 consecutive issues. Add $3 per line for 
boldface type. Add $25 if a background screen is desired. 

DISCOUNTS: Frequency discounts for 6 consecutive ads (less 7%) and for 12 
consecutive ads (less 15%). 

MECHANICAL REQUIREMENTS: Camera ready art or typewritten copy only 
(phone orders excepted). Display: Specify desired size, include $20 if 
reduction is required. Line: Specify characters in boldface, caps. Allow 6 
weeks for publication. 

PAYMENTS: Full payment in advance. Check, money order, Visa, M/C, AmEx. 


Run this ad in issues 





Size: col x _inches or 1 col x lines 











Visa M/C AmEx 


I i a i ale ES a ee ER 
Signature 


Payment by: check m/o 

















Print Name 

Company 

Address 

SF) eed = rear ee Ae ees Wied SOAs OTL aE NR RET RS Ri eee f 2: 
PRONG ao a OnE etter 


Mail to or phone Alex Williams, DDJ Classifieds, 2464 Embarcadero 
Way, Palo Alto, CA 94303 (415) 424-0600 



































ECOSOFTA@INC. 
Eco-C (Ecosoft), MSDOS (Microsoft), UNIX (Bell Labs), CP/M (Digital Research), Z80 (Zilog), 8086, 8087, 8088 (intel). 





An Optimizing, hassle-free 
C Compiler for the 8086-8088. 


Ecosoft’s Eco-C, the performance leader among full C 
compilers for the Z80, is now available for the 8086- 
8088 running under MSDOS (2.0 or later). Eco-C has 
features not found in any other 8086-8088 C compiler. 


* Over 100 library functions. Since they follow UNIX standards, your 
programs are highly portable in ““both’’ directions (“‘up’’ to a UNIX 
machine or ““down’’ to our Z80 compiler). This means new markets 
for your software at minimum development cost. 

* A single library. No more “‘dual’’ libraries and trying to remember 
what has to be linked with what. Your programs automatically take 
advantage of an 8087 if one is present at runtime. 

* A single floating point answer. No more “fuzzy floating point’’: 
your programs produce the same answers whether the floating point 
is done in hardware (8087) or software. 

* Error messages in English. No more cryptic numbers to look up. We 
tell you where the error occurred, what was found there, and what 
should have been there. 

* Strict syntax parsing. LINT is going to uncover fewer surprises 
because our parser looks hard at the details. 

* Efficient code. The optimizer pass of the compiler generates 
assembler code in Intel mnemonics that rivals that produced by 
compilers costing twice as much. 


The price of the Eco-C compiler is $250.00 (all 
versions), including the user’s manual, and is designed 
for use with Microsoft’s MASM (or compatible) assembler 
and linker. When ordering, please specify disk format 
and whether you want the Z80-CP/M or 8088-MSDOS 


version of Eco-C. 
| | AME 
oz 


Ecosoft Inc. 

6413 N. College Avenue 
Indianapolis, IN 46220 
(317) 255-6476 
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FULL SCREEN SYMBOLIC DEBUGGER 


“THE SINGLE BEST DEBUGGER 


FOR CP/M-SO. A TRULY 
AMAZING PRODUCT.” 


LEOR ZOLMAN 
AUTHOR OF BDS C 
Complete Upward Compatibility with DDT 
Simultaneous instruction, register, stack & memory displays 
Software in-circult-emulator provides write protected memory, 


execute only code and stack protection. 
Fifteen single keystroke commands 
Thirty day money back guarantee 
On-line help & 50 page user manual 


ONLY $195. 


IBM PC VERSION AVAILABLE SOON! 


—SOF T ADVANCES — 


P.O. BOX 49473 AUSTIN, TEXAS 78765 (512) 478-4763 


a 


=a aa peonens snare 
MasterCard , VISA ; 
(\ Be) fae fd 
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Software 





Development 
PCDOS/MSDOS 


Complete C Compiler 


Full C per K&R 

Inline 8087 or Assembler Floating 
Point, Auto Select of 8087 

Full 1Mb Addressing for Code or 
Data 

Transcendental Functions 
ROMable Code 

Register Variables 

Supports Inline Assembler Code 


MSDOS 1.1/2.0 
Library Support 


All functions from K&R 

All DOS 2.0 Functions 

Auto Select of 1.1 or 2.0 
Program Chaining Using Exec 
Environment Available to Main 


c-window™ 


Symbolic Debugger 


Source Code Display 

Variable Display & Alteration 
Using C Expressions 

Automatic Commands 

Multiple Breakpoints by Function 
& Line Number 


8088/8086 Assembler 


FAST — Up to 4 times Faster than 
IBM Assembler 

Standard Intel Mnemonics 
Compatible with MSDOS Linker 
Supports Full Memory Model 


8088 Software Development 


$4 G00 


Includes: C Compiler/Library, 
c-window, and Assembler, plus 
Source Code for c-systems Print 
Utility 


c-systems 


P.O. Box 3253 
Fullerton, CA 92634 
714-637-5362 
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C Programmers: 

Program. 
three times faster 
with Instant-C" 


Instant-C™ is an optimizing interpreter 
for the C language that can make pro- 
gramming in C three or more times faster 
than using old-fashioned compilers and 
loaders. The interpreter environment 
makes C as easy to use as Basic. Yet 
Instant-C™ is 20 to 50 times faster than 
interpreted Basic. This new interactive 
development environment gives you: 




















































Instant Editing. The full-screen editor is 
built into Instant-C™ for immediate use. 
You don’t wait for a separate editor pro- 
gram to start up. 


Instant Error Correction. You can 
check syntax in the editor. Each error 
message is displayed on the screen with 
the cursor set to the trouble spot, ready 
for your correction. Errors are reported 
clearly, by the editor, and only one at a 
time. 


Instant Execution. Instant-C™ uses 
no assembler or loader. You can execute 


your program as soon as you finish 
editing. 

Instant Testing. You can immediately 
execute any C statement or function, set 
variables, or evaluate expressions. Your 
results are displayed automatically. 


Instant Symbolic Debugging. Watch 
execution by single statement stepping. 
Debugging features are built-in; you don’t 
need to recompile or reload using special 
options. 


Instant Loading. Directly generates .EXE 
or .CMD files at your request to create 
stand-alone versions of your programs. 


Instant Floating Point. Uses 8087* co- 
processor if present. 


Instant Compatibility. Follows K & R 
standards. Comprehensive standard 
library provided, with source code. 


Instant Satisfaction. Get more done, 


faster, with better results. Instant-C™ 
is available now, and works under 
PC-DOS, MS-DOS*. and CP/M-86*. 


Find out how Instant-C™ is changing 
the way that _ programming is done. 
Instant-C™ is $500. Call or write for 
more information. 


Rational 


Systems, Inc. 
(617) 653-6194 
P.O. Box 480 
Natick, Mass. 01760 


Trademarks: MS-DOS (Microsoft Corp.) 8087 (Intell Corp.), CP/M-86 
(Digital Research, Inc.), Instant-C (Rational Systems, Inc.) 
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Introducing the MIX Editor 


A Powerful Addition To Any Programmer’s Tool Box 








Full Screen Editing 
WordStar Key Layout 
Custom Key Layouts 
Terminal Configuration 
Help Files 
Backup Files 










30 Day Money Back Guarantee 





Introductory Offer 


995 


Programmable 
Macro Commands 


Custom Setup Files 
Mnemonic Command Mode 
Multiple File Editing 
Unlimited File Size 





For PCDOS/MSDOS (2.0 and above/128K) or CPM80 (Z80 requited/64K ) 


Great For All Languages 


A general purpose text 
processor, the MIX Editor is 
packed with features that make it 
useful with any language. It has 
auto indent for structured 
languages like Pascal or C. It has 
automatic line numbering for 
BASIC. It even has fill and justify 
for English. 


Terminal Configuration 
A utility for defining terminal 
features (smart features 
included ) allows the editor to 
work with any terminal. Over 30 
of the most popular terminals are 
built-in. 


Custom Keyboard 
Layout 

Commands are mapped to keys 
just like WordStar. If you don’t 
like the WordStar layout, simply 
change it. Any key can be 
mapped to any command. You 
can also define a key to generate 
a string of characters, great for 
entering keywords. 


Macro Commands 


The MIX Editor allows a 
sequence of commands to be 
executed with a single keystroke. 
You can define a complete 
editing operation and perform it 
at the touch of a key. 


2116 E. Arapaho 

Suite 363 

Richardson, Tx 75081 
software (214) 783-6001 


MSDOS is a trademark of Microsoft 
PCDOS is a trademark of IBM 

CPM80 is a trademark of Digital Research 
WordStar is a trademark of MicroPro 


Custom Setup Files 


Custom keyboard layouts and 
macro commands can be saved 
in setup files. You can create a 
different setup file for each 
language you use. The editor 
automatically configures itself 
using a setup file. 


Command Mode 


Command mode allows any 
editor command to be executed 
by name. It is much easier to 
remember a command name 
versus a complicated key 
sequence. Command mode 
makes it easy to master the full 
capability of the editor. 
Frequently used commands can 
be mapped to keys. Infrequent 
commands can be executed by 
name. 


Editor Commands 


The editor contains more than 
80 commands. With so many 
commands, you might think it 
would be difficult to use. Not so, 
it is actually extremely simple to 
use. With command mode, the 
power is there if you need it, but 
it doesn’t get in your way if you 
don’t. Following is a list of some 
of the commands. 


Cursor Commands 


Left/Right/Up/Down 

Tab Right/Tab Left 

Forward Word/Backward Word 
Beginning of Line/End of Line 
Scroll Up/Scroll Down 
Horizontal Scroll 

Top of Buffer/Bottom of Buffer 


Block Commands 


Copy/Insert/Delete 
Lower Case/Upper Case 
Fill/Justify 

Print/Extract 


File Commands 


Directory 
Show File 
Insert File 
Delete File 


Append File 


Other Commands 


Find String/Replace String 
Replace Global 

Delete Line/Insert Line 
Undelete Line 

Delete Character/Delete Word 
Insert Mode 

Split Line/Merge Line 
Duplicate Line 

Center Line 

Set Tab/Clear Tab 








To Order: Call Toll Free 1-800-622-4070, (Illinois only 1-800-942-7317) i 
Mix Editor ____ $29.95 + shipping ($5 USA/$10 Foreign) Texas residents add 6% sales tax | 
| Visa ___ MasterCard ____ Card * Exp. Date 
COD Check ____ Money Order —__ 2 | | 
Computer Operating System: MSDOS ____ PCDOS ____ CPM80 ___ { 
Name i 
2116 E. Arapaho 
awe Suite 363 | 
| City/State/Zip Richardson, Tx 75081 
ei software : 
acs Dealer Inquiries Welcome [ 
Phone Call (214) 783-6001 
eee eee eee eee eee ae Ge Se j 





_ They said it couldn’t be done. 
Borland Didit. Turbo Pascal 3.0 


The industry standard MS TURBO TURBO ‘/he best just got better: 
With more than 250,000 users worldwide Turbo PASCAL 2.0 3.0 Introducing Turbo Pascal 3.0 


Pascal is the industry’s de facto standard. Turbo We just added a whole range of exciting new | 
Pascal is praised by more engineers, hobbyists, features to Turbo Pascal: 


Students and-professional programmers than any 
other development environment in the history of 
microcomputing. And yet, Turbo Pascal is 
simple and fun to use! 


































e First, the world’s fastest Pascal compiler just got 
faster. Turbo Pascal 3.0 compiles twice as fast as 
Turbo Pascal 2.0! No kidding. 

e Then, we totally rewrote the file |/O system, and 
we also now support I/O redirection. 

e For the IBM PC versions, we've even added 


COMPILATION SPEED “turtle graphics” and full tree directory support. 
e For all 16 Bit versions, we now offer two addi- 
EXECUTION SPEED tional options: 8087 math coprocessor support 
for intensive calculations and Binary Coded 
CODE SIZE Decimals (BCD) for business applications. 


e And much much more. 
BUILT-IN INTERACTIVE EDITOR 


ONE STEP COMPILE The Critics’ Choice 
(NO LINKING NECESSARY) Jeff Duntemann, PC Magazine: “Language deal 
of the century. . . Turbo Pascal: It introduces a new 
COMPILER SIZE programming environment and runs like magic.” 
Dave Garland, Popular Computing: “Most Pascal 
TURTLE GRAPHICS compilers barely fit on a disk, but Turbo Pascal packs 
an editor compiler linker and run-time library into just 
BCD OPTION 29K bytes of random-access memory.” 
Jerry Pournelle, BYTE: “What | think the computer 
PRICE industry is headed for: well documented, standard, 
plenty of good features, and a reasonable price.” 
ili : (*) Benchmark run on an IBM PC using MS Pascal version 3.2 and 
Portability the DOS linker version 2.6. The 179 line program used is the “Gauss- 
Turbo Pascal is available today for most computers Seidel” program out of Alan R. Miller's book: Pasca/ programs for 
running PC DOS, MS DOS, CP/M 80 or CP/M 86. A scientists and engineers (Sybex, page 128) with a 3 dimensional 
XENIX version of Turbo Pascal will soon be announced, non-singular matrix and a relaxation coefficient of 1.0. 


and before the end of the year, Turbo Pascal will be 
running on most 68000 based microcomputers. 


An Offer you Can’t Refuse 


Until June 1st, 1985, you can get Turbo Pascal 3.0 for 
only $69.95. Turbo Pascal 3.0, equipped with either the 
BCD or 8087 options, is available for an additional 
$39.95 6r Turbo Pascal 3.0 with both options for only 
$124.95. As a matter of fact, if you own a 16 Bit 
computer and are serious about programming, you 
might as well get both options right away and save 
almost $25. 


Update policy 


As always, our first commitment is to our customers. 
You built Borland and we will always honor your 
support. 


$0, to make your upgrade to the exciting new version of 
Turbo Pascal 3.0 easy, we will accept your original Turbo 
Pascal disk (in a bend-proof container) for a trade-in 
_ Credit of $39.95 and your Turbo87 original disk for 
$59.95. This trade-in credit may only be applied toward 
_ the purchase of Turbo Pascal 3.0 and its additional BCD 
8087 options (trade-in offer is only valid directly 
rland and until June ist, 1985). 
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